CreateComObject

CLASS_clsLogin: TGUID = '{72A6FADA-FE26-46BD-A921-BFD1179C1E1E}';

TGUID = packed record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
end;

clsLogin = interface;

//////////
my_login : clsLogin;

my_login:=CreateComObject(CLASS_clsLogin) as clsLogin;