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

procedure TForm1.Berechne_xy(winkel: Real; 
                             var xi, yi: Integer); 
var x,y: Real; 
begin 
  winkel := winkel - pi / 2;  

  x := Cos(Winkel); 
  y := Sin(Winkel); 
  x := x * (Width div 3); 
  y := y * (Height div 3); 
  x := x + (Width div 2); 
  y := y + (Height div 2); 

  xi := Trunc(x); 
  yi := Trunc(y); 
end; 

//Sekundenzeiger zeichnen 
  Berechne_xy(((2 * Pi) / 60) * sec, x, y); 
  Canvas.Pen.Color:=clNavy; 
  Canvas.Pen.Width := 1; 
  Canvas.MoveTo(Width div 2, Height div 2); 
  Canvas.LineTo(x, y);