SRL Archive - General Botting Help

I am trying to do something like this. No matter what i do i still get timeforplayer resulting in 0. I could ofcourse like before was doing make it the same for every player like with allowedfails. But need to make separate to each. What i am doing wrong? Seen similar stuff works fine on Mayors Gao.

const
  TimeForPlayer=0;  
var
PlayersTimer: ttimemarker;

procedure initPlayerForm();
begin
  with playerForm do
  begin
    name := 'CosmasJDZ form';
    editBoxLabels := ['Run time before switch(mins)','Fails allowed'];
    editBoxDefaults := ['360','10'];
    comboBoxLabels := ['World'];
    comboBoxDefaults := ['63'];
    setLength(comboBoxItems, length(comboBoxLabels));
    comboBoxItems[0] := ['4', '5', '6'];
  end;
end;

procedure declarePlayers();
var
  i: integer;
begin
  players.setup(playerForm.players);
  currentPlayer := 0;
  for i := 0 to high(players) do
    with players[i] do
    begin
      players.setup(playerForm.players);
      integers[TimeForPlayer] := strToInt(playerForm.players[i].settings[0]);
      AllowedFails:= strToInt(playerForm.players[i].settings[1]);
      integers[WorldToBot] := strtoint(playerform.players[i].settings[2]);
    end
end;                  

begin

initPlayerForm();
runPlayerForm();
DeclarePlayers();


while players.getactive > 0 do
  begin
    PlayersTimer.start();
    repeat
      Mainloop(); 
    until (PlayersTimer.gettime() >= (players[currentplayer].integers[TimeForPlayer]*60000));
    players[currentplayer].logout();
    players.next(false);
  end;