[Raskolnikov]

Хотя лучше так, используя обработчик OnMouseDown:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssDouble in Shift) and PtInRect(Rect(20, 20, 100, 100), Point(X, Y)) then
  begin
    ShowMessage('Попал!');
  end;
end;