[Raskolnikov]

API функция PtInRect в обработчике события OnDblClick формы

Код:

procedure TForm1.FormDblClick(Sender: TObject);
begin
  if PtInRect(Rect(10, 15, 150, 200), Mouse.CursorPos) then
  begin
    ShowMessage('Попал!');
  end;
end;

Естественно, вместо Rect(10, 15, 150, 200) указать свой прямоугольник, а между begin и end - нужные действия.