Du könntest einen Record mit varianten Teile nehmen wenns umbedingt nur ein parameter sein soll:
Delphi-Quellcode:
type
TMyRec = record
case MyRectype: Boolean of
True: (Color: TColor);
False: (Kind: TKind);
end;
Windows Vista - Eine neue Erfahrung in Fehlern.