SetText überschreiben?

[SirThornberry]

ähm, für mich ist "function GetLabelText: string" eindeutig ein Readproperty da der funktion nix übergeben wird und als result etwas zurückgegeben. Anhand der Funktion kann man die Caption nicht ändern nur "falsch" zurückgeben. Der Wert der gesetzt wird wenn ich "caption := 'xyz';" aufrufe wird auf keinen fall durch GetLabelText geändert außer die Methode wurde bereits geändert, im orginalzustand (Delphiauslieferung) ist es ein höchstwahrscheinlich das read-property von Caption