Usando 7z en Lazarus

procedure TFrmExporta.BtnZipClick(Sender: TObject);
var
   UnProceso: TProcess;
begin
   // Ahora creamos UnProceso.
   UnProceso := TProcess.Create(nil);

   // Asignamos a UnProceso la orden que debe ejecutar. --RutaApp+'Datos\MIUS.fdb';
   //UnProceso.CommandLine := 'C:\AppChis\SIIS\BDBAK\7z a C:\AppChis\SIIS\Exporta\Envio -pSECRETO
                               C:\AppChis\SIIS\Exporta\*JUN2019.txt';
   UnProceso.CommandLine := RutaApp+'BDBAK\7z a '+RutaApp+'Exporta\Envio -pSECRETO '+RutaApp+'Exporta\*JUN2019.txt';

   // Definimos una opción de comportamiento de 'TProccess'
   // La opción poWaitOnExit hará que nuestro programa
   // se detenga hasta que termine el programa lanzado
   UnProceso.Options := UnProceso.Options + [poNoConsole];

   // Lanzamos la ejecución
   UnProceso.Execute;

   // Nuestro programa espera hasta que finaliza.
   UnProceso.Free;
   ShowMessage('Archivo de envió creado');
end;