Hmm, kann deinen Gedanken nicht ganz folgen. Meinst du etwas in dieser Richtung (kam mir beim lesen deines Beitrags in den Sinn)?
Delphi-Quellcode:
var
gs : TGroundStructure;
pPointer : Pointer;
begin
GetMem(pPointer, TGroundStructure.InstanceSize); // <- später dann dieser SpeedAllocator
gs := TGroundStructure.InitInstance(pPointer) as TGroundStructure;
gs.create(...blabla);
gs.Free;
end;
Hab grad kein Delphi zur Hand, muss das später ausprobieren...
[Edit]SizeOf(TGroundStructure) in TGroundStructure.InstanceSize geändert[/Edit]