Teste mal das (Jugend forscht
):
Delphi-Quellcode:
if Assigned(TFirstSecond.GetInterfaceEntry(IFirst)) then
Writeln('TFirstSecond supports Interface IFirst');
if Assigned(TFirstSecond.GetInterfaceEntry(ISecond)) then
Writeln('TFirstSecond supports Interface ISecond');