Saber cuantos y cuales usuarios existen en la PC

[lfb]

Saludos colegas.

Quisiera que me ayudaran a encontrar una forma de saber cuantos usuarios existen en un PC y saber sus nombres de usuarios.

Muchas gracias de antemano

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 UserList: Variant;
 Index: Cardinal;
begin
 UserList := CreateOleObject('Shell.Users');
 for Index := 0 to UserList.length - 1 do
  MessageBox(0, PChar(string(UserList.item(Index).setting['LoginName'])), nil, 0);
end;