hm...
also ich hab's mit deinem letzen Code ausgetestet und es funktioniert einwandfrei!
So muss der Anfang der Timer1Timer-Proz aussehen:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var winkel : real;
x, y, x1, y1, r, i : Integer;
hour, min, sec, msec : Word;
begin
Form1.Caption:=DateTimeToStr(Now);
DecodeTime(Now, hour, min, sec, msec);
r:=60;
// Hintergrund Ziffernblatt
Canvas.Pen.Color:=clsilver;
Canvas.Brush.Color:=clsilver;
Canvas.Ellipse(575,272,703,390);
// Ziffern
...
end;
Der Hintergrund
Ziffernblatt MUSS immer wieder neu gezeichnet werden, sonst hast du natürlich irgendwann 60 Sekundenstriche darauf...
Wenn Du meinen Code aus der o.a. Routine entsprechend in Deinem eingearbeitet hast, dann dürftest du keine Probs mehr haben...
Ansonsten sh PN!