[angvelem]

Для использования Rect-а:

Код:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  if PtInRect(Rect(0, 10, 100, 20), Point(X, Y)) then
    MessageDlg('qwerty', mtInformation, [mbOk], 0);
end;