Dispose mit untypisiertem Pointer

[Namenloser]

Hallo, ich stehe gerade ein bisschen auf dem Schlauch:

Delphi-Quellcode:

type 

PRecord = ^TRecord;
TRecord = record
  { was auch immer }
end;

var
  TypedPointer: PRecord;
  UntypedPointer: Pointer;
begin
  New(TypedPointer);
  UntypedPointer := TypedPointer;
  Dispose(UntypedPointer);
end;

Kann ich sowas machen, oder gibt das ein MemoryLeak? Kompilieren tut es zumindest, aber woher weiß Dispose die Größe des Records? Merkt der Speichermanager sich die? Wenn ja, kann ich mich darauf verlassen, dass das unter allen Versionen funktioniert?

Danke im Voraus