I get this warning when I compile. What do i need to do with the code below to get rid od it?
Thanks.
P
procedure TFrm_Main.Delay(msecs: Integer);
var
FirstTickCount: LongInt;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount - FirstTickCount) >= LongInt(msecs));
end;
Thanks.
P
procedure TFrm_Main.Delay(msecs: Integer);
var
FirstTickCount: LongInt;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount - FirstTickCount) >= LongInt(msecs));
end;