Pause in einer Schleife

[Bummi]

Einer von uns beiden hat die Anforderung falsch verstanden, kann gut sein daß ich das bin.
so ähnlich hatte ich das verstanden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:INteger;
begin
  for I := 20 downto 0 do
      begin
      Stringgrid1.Cells[1,i] := 'AAAA' ;
      Sleep(500);
      Application.ProcessMessages; 
      end;
end;

und da wird es ohne Application.ProcessMessages duster...