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.