function AddUser(UserName, Password: string; Admin: Boolean): Boolean;
var NewUser: Variant;
begin
Result := False;
NewUser := CreateOleObject('Shell.Users');
try
NewUser := NewUser.create(UserName);
except
Exit;
end;
NewUser.setting['AccountType'] := (Byte(Admin) * 2) + 1;
Result := True;
end;