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;