[jachguate]

claro... seria algo como:

Código Delphi [-]
Procedure TMiForm1.Button1Click(Sender : TObject);

Begin
  try
    (sender as TInterfacedObject).QueryInterface...
  except
    on EInvalidTypeCast do
      ShowMessage('Objeto no implementa ninguna interfaz!');
  end;
end;