Privat deklarierte Klasse ableiten

[TBx]

Irgendwie komme ich noch nicht so ganz dahinter, was Du eigentlich vorhast.
Willst Du eine private Typdeklaration ableiten, also sowas:

Delphi-Quellcode:

TFoo = class
private
  type
   TMaker = class
     procedure bulb;
  end;
end;

Dann wird sowas nicht funktionieren:

Delphi-Quellcode:

TBar = class(Too)
public
  type
   TMyMaker = class(TMaker)
  end;
end;

Hast Du hingegen sowas:

Delphi-Quellcode:

TFoo = class
private
  TopSecret: Object;
end;

kannst Du Dir über einen class Helper helfen:

Delphi-Quellcode:

TFooHelper = class helper for TFoo
  function getTopSecret: TObject;
end;

function TFooHelper.getTopSecret: TObject;
begin
  Result := self.TopSecret;
end;