1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Timer1Timer(Sender: TObject);
var winkel,x,y,x2,y2,vorherx,vorhery : Integer;
    hour, min, sec, msec: Word;
begin
  Refresh;
  Label1.Caption:= TimeToStr(Now);
  DecodeTime(Now, hour, min, sec, msec);
  x2:=Image1.Width div 2;
  y2:=Image1.Height div 2;
  Image1.canvas.Pen.Mode:= pmNotXor;

  //Sekundenzeiger
  Berechne_xy(((2*pi)/60) * sec, x, y);
  Image1.Canvas.moveto(x2, y2);
  Image1.Canvas.LineTo(vorherx,vorhery);
  Image1.Canvas.moveto(x2, y2);
  Image1.Canvas.LineTo(x,y);
  vorherx:=x;
  vorhery:=y;