1:
2:

    procedure Line(var NCanvas: TCanvas; X1,Y1,X2,Y2: Integer); overload;
    procedure Line(var NCanvas: TCanvas; Pt1,Pt2: TPoint); overload;					

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

procedure TwUhr.Line(var NCanvas: TCanvas; X1,Y1,X2,Y2: Integer);
var oldPenPos: TPoint;
begin
  oldPenPos := NCanvas.PenPos; // Alte Stiftposition speichern...
  NCanvas.MoveTo(X1,Y1);       // Linie
  NCanvas.LineTo(X2,Y2);       //       zeichnen
  NCanvas.PenPos := oldPenPos; // ...und wieder zurücksetzen
end;

procedure TwUhr.Line(var NCanvas: TCanvas; Pt1, Pt2: TPoint);
var oldPenPos: TPoint;
begin
  oldPenPos := NCanvas.PenPos; // Alte Stiftposition speichern...
  NCanvas.MoveTo(Pt1.x,Pt1.y); // Linie
  NCanvas.LineTo(Pt2.x,Pt2.y); //       zeichnen
  NCanvas.PenPos := oldPenPos; // ...und wieder zurücksetzenend;
end;					

1:

Line(Canvas, Middle, SekHandEnd);					

1:
2:

  Middle := Point(Width div 2, Height div 2);
  StdHandEnd := GetPos4Deg(StdGrad, Middle, Radius);					

1:

  Line(Canvas, Middle, StdHandEnd);