Um auf Apollonius Antwort zurückzukommen. Um jetzt diesen Schrittt zuwiederholen musst du ne eigene Prozedure schreiebn und ne If - then anweisung:
Delphi-Quellcode:
{eigene prozedure}
procedure Zeichnen;
begin
Image1.Canvas....
end;
{Timer}
procedure TForm1.Timer1Timer(Sender : TObject)
begin
Zeichnen;
If Sekunde = Gewünschte Zahl* then
begin
Image1.Invalidate;
Zeichnen;
end;
end;