Programm mit Leertaste anhalten

[bitsetter]

Du nimmst den Code von yörsch und fügst folgendes beim Timer ein:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case Timer1.Tag of
    0: ListBox1.Items.Add('Zunächst zeichnet man den ersten Punkt P1(1,2) ein');
    1: ListBox1.Items.Add('dabei ist 1 der x-Wert: man geht in Gedanken 1 nach rechts');
    2: ListBox1.Items.Add('2 ist der y-Wert: man geht also in Gedanken 2 nach oben');
    3:
      begin
        ListBox1.Items.Add('nun macht man an der Stelle einen Punkt');
        Timer1.Tag:= 0;//wenn fertig reset
        Timer1.Enabled := false;
        exit;
      end;
  end;
  Timer1.Tag:= Timer1.Tag+ 1;
end;

Den Code kannst du ja noch anpassen.