Warum nicht einfach
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
lB: MInterfB;
begin
ShowMessage(factoryB.exec1);
(*
lB := self.factoryB;
Self.getInterfA := MInterfA( lB );
ShowMessage(self.getInterfA.exec1());
*);
end;
Oder habe ich dein Problem falsch verstanden?
Das Ziel ist factoryB über den Datentyp MInterfA mit der Variable getInterfA an andere Programmteile zu übergeben. Der vorgestellte Code war nur ein Minimalbsp um das Problem zu veranschaulichen.