ListBox.Items и CMD

[GrabbeR]

Нужно поставить один пароль на все учетные записи Windows, которые получаю в список ListBox.
В переменную их записать или как? Подскажите примером.
Ставлю пароль так:

WinExec(PChar('cmd /c net user Admin password'), SW_HIDE);

[Stilet]

Ну в цикле:

With ListBox.Items do 
 for i:=0 to Count-1 do 
  WinExec(PChar('cmd /c net user '+Strings[i]+' password'), SW_HIDE);

[GrabbeR]

Спасибо! Как я не до пер!