Wert aus einer Procedure Global setzen geht das?

[malo]

So?

Delphi-Quellcode:

var
  Form1: TForm1;
  GlobalX, GlobalY: integer;

implementation

{$R *.dfm}


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  GlobalX := x;
  GlobalY := y;
end;