GetMem, FreeMem

[Luckie]

Delphi-Quellcode:

type
  TNamen = Record
    vName: string[255];
    nName: string[255];
  end;
  PNamen = ^TNamen;

procedure TForm1.Button1Click(Sender: TObject);
var
  Namen: PNamen;
begin
  GetMem(Namen, SizeOf(TNamen));
  try
    PNamen(Namen)^.vName := 'Mario';
    PNamen(Namen)^.nName := 'Kellner';
    ShowMessage(Namen^.vName + ' ' + Namen^.nName);
  finally
    FreeMem(Namen, SizeOf(TNamen));
  end;
end;

Besser wäre New und Dispose.