Image wieder blank machen

[rawsoul]

Delphi-Quellcode:

[...]
var
  Form1: TForm1;
  sekunde:integer=0;
  minute:integer=0;
  stunde:integer=0;

[...]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  sekunde:=(sekunde+1) mod 60;
  if sekunde=59 then begin minute:=(minute+1) mod 60; image1.invalidate end;
  if minute=59 then stunde:=(stunde+1) mod 60;
  image1.canvas.ellipse(10+6*sekunde,10,15+6*sekunde,15);
end;

[...]

Bei mir funktioniert es so bestens.