function GetBotIndex(): integer;
var i: integer;
begin
  Result:= -1;
  for i:= 0 to BotList.count - 1 do          // пробегаемся по списку аккаунтов в боте 
    if (TBot(BotList(i)) = Bot) then begin   // сравниваем каждый элемент с объектом нашего аккаунта
      Result:= i;
      break;
    end;
end;

begin
  Print(GetBotIndex);   // распечатает индекс нашего аккаунта в менеджере аккаунтов (индексы начинаются с 0)
end.