[Страдалецъ]

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
 Canvas.LineTo(100,100);
end;