пауза

[stlcrash]

Использую для паузы процедуру

procedure TForm1.Wait(interval: integer);
var time:integer;
begin
  time:= GetTickCount + interval;
  while GetTickCount < time do
    begin
      sleep(10);
      application.ProcessMessages;
    end;
end;

Но она вызывает 2 предупреждения. Ищу аналог, либ как поправить?

[dcc32 Warning] Unit1.pas(583): W1024 Combining signed and unsigned types - widened both operands
[dcc32 Warning] Unit1.pas(584): W1023 Comparing signed and unsigned types - widened both operands

[Xo66um]

var
 MyThread: TSomeThread;

...

// Поставить на паузу:
MyThread.Suspend;

// Возобновить работу:
MyThread.Resume;

А у тебя просто Delphi ругается на то, что ты работаешь со знаковым и беззнаковым типами. Измени Integer на Cardinal

[Arigato]

Для чего пауза?

[min@y™]

Использую для паузы процедуру

для чего это?

[stlcrash]

Все тот же бот. Отправляю команду в игру, но из за задержки в игре выставляю паузы в некоторых местах.
например:
Отправить в игру сигнал нажать левую кнопку мышки, затем правую. подождать 1 сек и отжать все это.

[Михаил22042016]

procedure TForm1.Wait(mSec:Cardinal);
Var TargetTime:Cardinal;
Begin
 TargetTime:=GetTickCount+mSec;
 While TargetTime>GetTickCount Do
  begin
      Application.ProcessMessages;
      Sleep(1);
      If Application.Terminated then Exit;
  end;
end;

никаких предупреждений не вызывает