[[duilioisola]]

¿Podría simplificarse mas eso?

Veo que se utiliza repetidamente estas líneas de código.
Puedes ponerlo todo en un procedimiento y pasarle los parámetros necesarios.

Código Delphi [-]
   Zipp.FileName := 'J:\Archivos\ACASALUD\'+a+'\ADEM\'+'ACA SALUD '+a+'.zip';
   Zipp.OpenArchive(fmCreate);
   Zipp.BaseDir := 'J:\Archivos\ACASALUD\'+ a+'\ADEM\';
   Zipp.TempDir := 'J:\Archivos\ACASALUD\'+ a+'\ADEM\';
   Zipp.AddFiles('*.Txt');
   Zipp.CloseArchive;

Código Delphi [-]
procedure comprimir(DirectorioBase, Archivo, ArchivoZip: string);
begin
   with Zipp do
   begin
      FileName := ArchivoZip;
      OpenArchive(fmCreate);
      BaseDir := DirectorioBase;
      TempDir := IncludeTrailingPathDelimiter(ExtractFilePath(ArchivoZip));
      AddFiles(Archivo);
      CloseArchive;
   end;
end;

// luego lo llamarías así:
[...]
comprimir( 'J:\Archivos\ACASALUD\'+ a+'\ADEM\', '*.Txt', 'J:\Archivos\ACASALUD\'+a+'\ADEM\'+'ACA SALUD '+a+'.zip');
[...]