Можно немного подсократить, попробуйте так
Код:
with sListView1 do
for i := 0 to Items.Count-1 do
ShellExecute(0, 'open', 'cmd.exe', PChar('/c "' +
ExtractFilePath(paramstr(0)) + 'upx.exe" ' + Items[i].Caption), nil, sw_hide);
З.Ы. Кстати, у нас такой уже лежит в
исходниках