Das einzige was ich mir vorstellen könnte wäre sowas, aber ich denke es ist falsch da es nicht geht
Delphi-Quellcode:
{ TKlasse }
procedure TKlasse.SetText(Value: string);
begin
TKlasse(self).FDaten.dertext := value;
TKlasse(self).FText := text;
end;