Importando os Componentes do Crystal XII

function TCRVSelectionItem.Set_ObjectPosition(pVal: tagRECT): HResult;
{ Warning: The property ObjectPosition has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ObjectPosition := pVal; // Trava nessa linha
Result := S_OK;
end;

------------------------------------------------

[DCC Error] CrystalActiveXReportViewerLib11_TLB.pas(2818): E2160 Type not allowed in OLE Automation call
[DCC Fatal Error] dcl12cr11_5.dpk(136): F2063 Could not compile used unit CrystalActiveXReportViewerLib11_TLB.pas