[Alegun]

Тогда похоже код должен быть примерно такой

Код:

var
 i: integer;
 s: string;
begin
 for i := 0 to sListView1.Items.Count-1 do s:= Format('%s"%s" ',[s,sListView1.Items[i].Caption]);
 ShellExecute(0,'open','cmd.exe',PChar('/c "'+ExtractFilePath(paramstr(0))+'upx.exe" '+s),nil,sw_hide);
end;