[san-46]

Ну, если не сложно, то в чем проблема?

Код:

procedure DrawLine(Canv : TCanvas; C1, C2 : TPoint);
begin
  Canv.MoveTo(C1.X, C1.Y);
  Canv.LineTo(C2.X, C2.Y);
end;