Das mit New(FPropInfo) war auch mein erster Gedanke.
Da aber PropType ein Pointer auf einen Pointer auf einen Record ist, ist die Sachen nicht so einfach.
Ich habe jetzt einfach die Record-Typen, also TPropInfo, usw. in der Klasse angelegt und den Zeiger darauf zeigen lassen.
Delphi-Quellcode:
var
FPropInfoRecord: TPropInfo;
FTypeKindPointer: PTypeInfo;
FTypeKindRecord: TTypeInfo;
FPropInfo := @FPropInfoRecord;
FPropInfo^.PropType := @FTypeKindPointer;
FTypeKindPointer := @FTypeKindRecord;
Nicht sehr elegant, aber es hat funktioniert und das auch noch ohne Speicherloch!
Danke allen, Hans.