یک کار گرافیکی در دلفی

procedure TForm1.FormCreate(Sender: TObject);
begin
  { Set transparent background }
  Brush.Style:=bsClear;

  { Set pen color and width }
  Canvas.Pen.Color:=clBlack;
  Canvas.Pen.Width:=10;
end;

procedure TForm1.FormClick(Sender: TObject);
Var
  X, Y : Integer;
begin

   X:=Mouse.CursorPos.X;
   Y:=Mouse.CursorPos.Y;
   Canvas.MoveTo(0,Y);
   Canvas.LineTo(Form1.Width,Y);
   Canvas.MoveTo(X,0);
   Canvas.LineTo(X,Form1.Height);
end;