procedure TForm1.ImageGistMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; x, y: Integer); begin if (x >= 10 or x <= 35) and (y >= 0 or y <=100) ) then form2.Show; end;