1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Hallo = class
private
public
  property Essen: string read (variable) write (procedure);
end;

Tschau = class(Hallo)
private
public
  property Kauen: string read Essen write Essen; //ist es irgendwie möglich so auf die property Essen in 
                                                 //der Basisklasse Hallo zuzugreifen?? 
                                                 //Oder wie könnte man beim Aufruf von Kauen Essen "ausführen"
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

THallo = class(TObject)
private
  FEssen: String;
protected
  property Essen: String read FEssen write SetEssen;
end;

TSchau = class(THallo)
private
  function GetKauen: String;
  procedure SetKauen(const Value: String);
public
  property Kauen: String read GetKauen write SetKauen;
end;

implementation

function TSchau.GetKauen: String;
begin
  Result := inherited Essen;
end;

procedure TSchau.SetKauen(const Value: String);
begin
  inherited Essen := Value;
end;