I don't code in Delphi, so I'm the code isn't much help to me.

>
>What do you mean ? I have use the typelibrary to generate the code in Delphi an then :
>
> Cotest1 = class
> class function Create: Itest1;
> class function CreateRemote(const MachineName: string): Itest1;
> end;
>
>implementation
>
>uses ComObj;
>
>class function Cotest1.Create: Itest1;
>begin
> Result := CreateComObject(CLASS_test1) as Itest1;
>end;
>
>The function in the dll is call Test1.