[angvelem]

Сообщение от Uniq!

... не могу разобраться как она работает...

Всё просто

Код:

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pt : TPoint;
begin
  pt := PaintBox1.ClientToScreen(Point(X, Y));
  Form2.Left := pt.X;
  Form2.Top  := pt.Y;
  Form2.ShowModal;
end;