[Grunch]

У всех наследников TControl есть property OnMouseDown. То есть, в event, например формы, есть строчка OnMouseDown. При двойном щелчке по ней создается процедура

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

Здесь Button может принимать значение mbLeft, mbRight или mbMiddle. А координаты при этом передаются в X и Y. То есть надо сделать что-то типа этого:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
  begin
    //что-то делаем с X и Y
  end;
end;