Programm mit Leertaste anhalten

[Bonbon]

Habe das eben mal versucht. Ich weiß ich nicht wie er sich die Zeile, in der er gerade war merken soll. Drücke ich also während die Erklärung läuft Space, so hört er nach dem ersten Zeilenblock auf. Das passiert aber egal an welcher Stelle er gerade war. Danach macht er auch weiter, aber eben immer ab der gleichen Zeile.
Ich habe nach dem ersten Block auch eine Pause in dem Programm von ein paar Sekunden. Hängt das irgendwie damit zusammen?

Delphi-Quellcode:

 ListBox1.Items.Add('Zunächst zeichnet man den ersten Punkt P1(1,2) ein');
     ListBox1.Items.Add('dabei ist 1 der x-Wert: man geht in Gedanken 1 nach rechts');
     ListBox1.Items.Add('2 ist der y-Wert: man geht also in Gedanken 2 nach oben');
     ListBox1.Items.Add('nun macht man an der Stelle einen Punkt');
     Pause(6000);

Die Prozedur für die Pause sieht wie folgt aus:

Delphi-Quellcode:

procedure pause(zeit:LongInt);
var anfang:LongInt; {lange nat. Zahlen}
begin anfang:=GetTickCount;
  while GetTickCount<anfang+zeit do
        Application.ProcessMessages; {nichts, nur Botschaften abarbeiten}
end;