[NumLock]

Код:

type
  PData = ^TData;
  TData = record
    Text: String;
  end;

var
  p: PData;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  p:=GetMemory(SizeOf(TData));
  ZeroMemory(p, SizeOf(TData)); // необязательно вовсе
  p^.Text:='hello';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  p^.Text:='';
  FreeMemory(p);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(p^.Text);
end;