Probleme mit Memo und Tastendruck

[Beatmaster S]

Hallo zusammen,

ich versuche gerade ein Klickadventure zu schreiben. Die Dialoge werde in einem Memofeld dargestellt.Wenn man die ENTER-Taste drückt, soll der Dialog fortgeführt werden. Leider funktioniert das ganze aber gar nicht so, wie ich das haben will

Anstatt immer nachfolgende Textzeilen auszugeben, wird immer wieder nur die erste textzeile erneut ausgegeben, wenn man die ENTER-Taste drückt. Habt ihr eine Idee woran das liegen könnte?

Code:

procedure memo1keypress(Sender: Tobject; var key: char);
begin
 if key = #13 then begin
  weiter:= true;
 end;
end;

Code:

procedure personklick (Sender: Tobject);
begin
 weiter:= false;

 memo1.lines.add('hallo');
 while weiter = false do begin
  delay(1);
 end;
 weiter:= false;

 memo1.lines.add('hiho');
 while weiter = false do begin
  delay(1);
 end;
 weiter := false;
 
 
 memo1.lines.add('was geeeeeeht?');
 while weiter = false do begin
  delay(1);
 end;
 weiter := false;

 {..und so weiter das Ganze...}
end;

Ich bin langsam echt am Verzweifeln. Vielleicht bin ich auch auf nem ganzen falschen Weg. Bitte um Hilfe.
Schon mal Danke im Voraus!

Gruß Beatmaster