freepascal.compiler/docs/refex/ex64.pp

Program Example64;

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

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