Image wieder blank machen

[Avicenna]

Bei mir tut sich da einfach nichts.
Ich poste jetzt mal den kompletten Quelltext von procedure TForm1.Timer1Timer(Sender: TObject);:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

 if stunde < 10 then
 ausgabestd:='0'+inttostr(stunde);
 if stunde >= 10 then
 ausgabestd:=inttostr(stunde);
 if minute < 10 then
 ausgabemin:='0'+inttostr(minute);
 if minute >= 10 then
 ausgabemin:=inttostr(minute);
 if sekunde < 10 then
 ausgabesek:='0'+inttostr(sekunde);
 if sekunde >= 10 then
 ausgabesek:= inttostr(sekunde);

sekunde:=sekunde+1;
begin;
if sekunde > 59 then
begin;
sekunde:=0;
minute:=minute+1;
image1.invalidate;
end;
if minute > 59 then
begin
minute:=0;
stunde:=stunde+1;
end;
if stunde > 59 then
stunde:=0;

label1.caption:='Zeit:'+ausgabestd+':'+ausgabemin+'.'+ausgabesek;

image1.canvas.ellipse(10+6*sekunde,10,15+6*sekunde,15);

if sekunde = 59 then
Image1.Invalidate;

end

end;

außerdem noch die Variablendeklaration:

Delphi-Quellcode:

var
  Form1: TForm1;
  stunde,minute,sekunde:integer;
  ausgabestd,ausgabemin,ausgabesek:string;

Ich hoffe, ihr könnt mir so weiterhelfen.