Jetzt musste ich es doch mal testen...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 1 to 5 do
begin
ShowMessage('test');
Sleep(95);
end;
end;
...und wie erwartet traten keinerlei Probleme auf. Muss wohl irgentwas mit Deiner Schleife nicht stimmen!