Okey, vielen Dank:
Delphi-Quellcode:
type
PCatData = ^TCatData;
TCatData = record
Caption: string;
ImageIndex: integer;
SubCats: array of PCatData;
end;
so geht es ..
//Edit: Und ja, es soll sogar rekursiv sein, weil ich eine rekursive Funktion mit den Datensätzen füttere