procedure Delay(ms : integer);
var
kdy : integer;
begin
kdy := GetTickCount + ms;
while GetTickCount < kdy do Application.ProcessMessages;
end;
Takto dosáhneme nejen požadované pauzy, ale zároveň nedojde k "zamrznutí" systému na daný interval (pomocí Application.ProcessMessages).