[AlexSku]

Для начала первый пример.

Код:

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

Но рисовать на форме - плохой тон. Лучше в PaintBox или на панели.