指针地址赋值解决方案

指针地址赋值
给定一个变量,将该变量值作为指针地址赋给一指针,VC可以做强制转换:
unsigned long Param
int * p=null;
Param=123456
p = (int *)Param;
DELPHI怎么处理?
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
  p,q :PInt;
  param :longint;
begin
  New(p);
  param :=Integer(p);//取得地址，实际上就是一个4字节的整数。
  q := PInt(param); //将这个整数作为地址赋给q
  q^ := 100;
  showmessage(intToStr(q^));
  Dispose(p);
end;