[camope3]

Благодарю всех откликнувшихся. LilLoco Немножко подправил Ваш код:

Код:

...
procedure TfMore.Button3Click(Sender: TObject);
  var
  a:Byte;
  symbol,files:string;
begin
  symbol:=' ';//здесь символ разделителя пробел
  for  a:= 0 to ListBox1.Items.Count - 1 do begin
  files := files + ListBox1.Items.Strings[a] + symbol;
  PackFile('d:\Arhive\123456.rar', files);
  end;
end;
...

и все работает.
Еще раз всем спасибо!