Wieso solltest Du bei Verwendung von Interfaces wieder beim Typecast landen? Du musst doch lediglich ermitteln, ob die aktuelle Instanz ein bestimmtes Interface implementiert und das dann benutzen. Dafür musst Du noch nicht einmal eine bestimmte Klassenhierarchie einhalten, da der Verwender nur die Interfaces sieht und nicht die Klasse.
Delphi-Quellcode:
procedure TIrgendwas.Work(const Intf: IBasicInterface);
var
FirstIntf: IFirstIntf;
SecondIntf: ISecondIntf;
begin
Intf.DoBasicWork;
if Supports(Intf, IFirstIntf, FirstIntf) then
FirstIntf.DoSomeWork;
if Supports(Intf, ISecondIntf, SecondIntf) then
SecondIntf.DoSomeOtherWork;
end;