New[Pointer]

var
  pa:^Integer;
  pstr:^string;
  a:integer;
  str:String;
begin
    a:=20110806;
    pa:=@a;
    ShowMessage(IntToStr(pa^));
    str:='Hello This is TestProc;
    pstr:=@str;
    ShowMessage(pstr^);
    ShowMessage(pstr^);
end;