Record aus Speicherbereich initialisieren

[MisterNiceGuy]

Hi, ich versuche gerade einen Record folgendermaßen zu füllen:

Delphi-Quellcode:

type TVec3D = packed record
  x,y,z:single;
end;

procedure Foo;
   var pPointerAufSpeicherbereich:Pointer;
       a:TVec3D;
begin
   pPointerAufSpeicherbereich := getRichtigenSpeicherbereich;
   a := TVec3D(pPointerAufSpeicherbereich);
end;

Das geht leider so nicht, wie mach ich das ganze richtig?