Programm reagiert nicht mehr nach Buttonclick

[Klaus01]

und noch einen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Byte;
  // messstring variable gespart
begin
  for i:=1 to length(edit1.Text) do
    begin
      memo1.Lines.Text:=memo1.Lines.Text+edit1.Text[i];
      delay(50);  // delay anstelle von sleep und processMessages
   end;
end;

delay -> http://www.delphipraxis.net/internal...ect.php?t=7355

Grüße
Klaus