[lubafffka]

так? а в point что писать?

Код:

procedure TForm1.ImageGistClick(Sender: TObject);

begin
  myRect := Rect(10,100, 35, 0);
  if PtInRect(myRect, Point(?,?))
       then form2.Show;
end;

end.