Ich glaube du solltest dich mal so langsam Richtung Ecke bewegen, in die du dich gleich stellst:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text := IntToStr(x);
Edit2.Text := IntToStr(y);
end;