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]

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;