TMyControl = class(TWinControl) protected procedure SetHeight(Value: Integer); function GetHeight: Integer; public property Height: Integer read GetHeight write SetHeight; end; procedure TMyControl.SetHeight(Value: Integer); begin inherited Height := Value; end; function TMyControl.GetHeight; begin Result := inherited Height; end;