Programm reagiert nicht mehr nach Buttonclick

[nat]

warum so umständlich? ich finde ne for-schleife wär hier viel angebrachter!
(dann wär dir der o.g. fehler auch nich passiert *g*)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  messtr: string;
  i: integer;
begin
  messtr := Edit1.Text;
  for i:=1 to length(messtr) do
  begin
    Memo1.Lines.Text := Memo1.Lines.Text + messtr[i]; 
    Application.ProcessMessages;
    Sleep(50);
  end;
end;