OZ Oscar Zhumaniyazov procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin //X, Y - Это и есть координаты указателя мыши в момент возникновения события. end;