Programm reagiert nicht mehr nach Buttonclick

[richie]

Tach,
ich war mir nicht sicher, also poste ich mein Problem hier:

Ich will eine Art Chat programmieren, und da hab ich mit der Textausgabe angefangen. Die Buchstaben sollen nacheinander hingeschrieben (ins Memo) werden. Das löse ich ohne einen Timer, weil ich das dann als procedure machen wollte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  partmesstr: string[1];
  messtr: string;
begin
  messtr := Edit1.Text;
  repeat
    partmesstr := Copy(messtr, 1, 1);
    Memo1.Lines.Text := Memo1.Lines.Text + partmesstr;
    Delete(messtr, 1, 1);
    Application.ProcessMessages;
    Sleep(50);
  until  Length(Edit1.Text) = 0;
end;

(Das ist jetzt zu Testzwecken ein Buttonklick.)

Wenn ich auf den Button drück', dann wird der Text auch schön hingeschrieben, allerdings reagiert das Programm danach nicht mehr auf Eingaben (das heißt, ich kann noch Text eingeben und weiter ausgeben lassen, aber Schließen funktioniert nicht mehr ... )?!
Weiß jemand woran das liegt, oder bin ich zu blind den Fehler zu entdecken?

Für Hilfe wär ich sehr dankbar.

/Edit: Weiß nicht genau, welcher Titel aussagekräftig ist.