Значит чучуть попробуй изменить программу, или используй другую функцию...
Код:
procedure Delay(const AMilliseconds: Cardinal);
var
SaveTickCount: Cardinal;
begin
SaveTickCount := GetTickCount;
repeat
Application.ProcessMessages;
until
GetTickCount - SaveTickCount > AMilliseconds;
end;