uses comobj;
var test:olevariant;
begin
  test:=createoleobject('K3Login.ClsLogin');
  if test.CheckLogin then
 ......
end;