procedure TForm1.FormMouseDown(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption =Format('(%d, %d)',[X, Y]);
end;