[pascal]procedure TfrmMain.GameLoop(Sender: TObject; var Done: Boolean);
begin
blah;
Sleep(0);
Done := False;
end;
[/pascal]
If you want to maintain concrete FPS when you should play with Sleep(positive number).