unit Unit1;

 interface

 uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs;

 type

 TForm1 = class(TForm)

 procedure FormPaint(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

 var

 Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.FormPaint(Sender: TObject);

 begin

  Form1.Canvas.MoveTo(350, 430);// вертикальная

  Form1.Canvas.LineTo (350, 10);// линия

  Form1.Canvas.MoveTo(600, 220);// горизонтальная

  Form1.Canvas.LineTo(100, 220);//линия

 end;

 end.