Dispose: Pointer oder Object?

[Union]

Mit Eurekalog und eingeschaltetem Memcheck. Allerdings habe ich nur ein NoteRec erzeugt mit den ersten 3 Zeilen der Prozedur:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  NoteRecPtr: PNoteRec;
begin
  New(NoteRecPtr);
  NoteRecPtr^.Caption := 'XYZ';
  NoteRecPtr^.ID := 'ZYX';
  Dispose(NoteRecPtr);
end;