Хочу сделать паузу 2 мин, зависает

var
PbxAdm : TStringList;

for i := 0 to PbxAdm.Count-1 do BEGIN
    writeln(TimeToStr(Now),' ',PbxAdm[i]);
    Writeln(f, FormatdateTime('yyyy-mm-dd hh:nn:ss', Now), ' ', PbxAdm[i]);
    Createprocess(nil, PChar(PbxAdm[i]), nil, nil, false, Create_default_error_mode, nil, nil, si, pi);
    //Делаем паузу после запуска одной станции 120 сек = 2 мин
    if i <= PbxAdm.Count-2 then sleep(120 * 1000);
    Application.ProcessMessages;
    END;

var
t : TDateTime;
Tdur : Extended;
...
{    if i <= PbxAdm.Count-2 then sleep(60 * 1000);
    Application.ProcessMessages;
}
    t := Now;
    tDur := 0;
    while (tDur < 120) do tDur := (Now - t) * (24*60*60);
    END;

var
  i, Count: integer;
begin
  Count := 3;
  for i := 0 to Count-1 do BEGIN
    writeln(TimeToStr(Now), ' ');
//    Writeln(f, FormatdateTime('yyyy-mm-dd hh:nn:ss', Now), ' ', PbxAdm[i]);
//    Createprocess(nil, PChar(PbxAdm[i]), nil, nil, false, Create_default_error_mode, nil, nil, si, pi);
    //Делаем паузу после запуска одной станции 120 сек = 2 мин
    if i <= Count-2 then sleep(120 * 1000);
//    Application.ProcessMessages;
  END;
  WriteLn('Konec');
end.

{$APPTYPE CONSOLE}
 
uses
  Windows, Messages, SysUtils, Classes, Forms;

dat := Now;
log := ExtractFilePath(Application.ExeName) + 'LOG\' + FormatdateTime('yyyy', dat) + '\' + FormatdateTime('yyyy-mm', dat) + '\' + FormatdateTime('yyyy-mm-dd', dat) + '.log';

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes, Windows;