[RusMaXXX]

вот:

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
  Zip: TZippit;
  i: integer;
begin
  try
    Zip := TZippit.Create;
    for i:=0 to ListBox1.Items.Count-1 do
    begin
      if FileExists(ListBox1.Items.Strings[i]) then
        Zip.AddFile(ListBox1.Items.Strings[i]);
    end;
    Zip.SaveToFile('ZippedByZippit.zip');
  finally
    Zip.Free;
  end;
end;