fpc/docs/refex/ex64.pp

Program Example64;

{ Program to demonstrate the SPtr function. }
Var
  P :Longint;

begin
  P:=Longint(Sptr); { P Contains now the current stack position. }
end.