Utilizando COM con delphi

[raulb]

Tengo una DLL registrada que me genero un UCBioBSPCOMLib_TLB.pas,
Creo un form y en el uses cito UCBioBSPCOMLib_TLB, hasta ahi todo ok, pero UCBioBSPCOMLib_TLB.pas es una clase con 7 interfaces, en consecuencia cuando la quiero usar

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
scannero : UCBioBSP;
scannerid : IDevice;
{ Private declarations }
public
{ Public declarations }
end;

scannero := CreateComObject(CLASS_UCBioBSP) as UCBioBSP;
hasta aca todo ok, porque puedo acceder a las propiedades y funciones

Pero las funciones que necesito esta en una Interface IDevice y según un ejemplo en VB6 y transformado a delphi debería hacer

scannerid := scannero.device;

y de esa manera comenzar a utilizar las propiedades y funciones de esa interfase, pero ocurre algo curioso :

scannero.device es un Olevariant y no es compatible con el tipo Idevice definido para scannerid

Existe alguna forma de al momento de crear el objeto
createcomobject, se puede crear las demas interfaces ???.

y si no como las inicializo para poder utilizarla ???

Gracias





showmessage(inttostr(scannero._Release));
showmessage(scannero.MajorVersion);
showmessage(scannero.MinorVersion);
scannerid := scannero.
showmessage(inttostr(scannerid.OpenedDeviceID));