17.10.2010 21:31, Juha Manninen (gmail) wrote: > program project1; > {$mode objfpc}{$H+} > uses > Classes; > var > io: TInterfacedObject; > begin > io := TInterfacedObject.Create; > end. Try the same but replace io type to IUnknown. Best regards, Paul Ishenin.