[Uniq!]

Код:

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    Form2.Left := X;
    Form2.Top := Y;
    Form2.ShowModal;
  end;
end;

Что необходимо добавить чтоб модальная форма появилась именно там где был сделан клик? Сейчас оно всплывает как-то не там...