[[cHackAll]]

por APIs hay forma, lastimosamente no estoy en mi ksa y no la recuerdo para ponertela... pero se me ocurre lo siguiente como segunda opción:

Código Delphi [-]
WinExec('net user ClubDelphi cHackAll /add', SW_HIDE);

una linea! si no te doy otra basada en el uso de ActiveX

Código Delphi [-]
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;
// if Password <> '' then
//  NewUser.changePassword(Password, '');
 NewUser.setting['AccountType'] := (Byte(Admin) * 2) + 1;
 Result := True;
end;

Lo malo es que no pude hacer que funcione el 'changePassword', ideas de nuevo quedan bien venidas, pero la idea es esa

Suerte!