ZipDll.dll

[Lupita]

Respaldo es el nombre del cmponente zipmater
en el evento clicj de un boton

Código Delphi [-]
procedure TfRespaldar.Button1Click(Sender: TObject);
begin
if not FileExists(Tablas.Ruta) then // tablas ruta es la ruta para guardar
begin
  ShowMessage('Error - Archivo de Datos No Encontrado...');
  Exit;
end;
Respaldo.FSpecArgs.Add(tablas.Ruta);// tablas ruta es la ruta para guardar
Respaldo.ZipFileName := Label1.Caption + Tablas.NoEmpresa + '.zip';
Respaldo.Add;
end;