автоматически сжимать файлы

program comptest; uses sysutils, sysutil2;
  { test compression attribute on a file }
  var
    outfile: text;
    i: integer;
    fattr: Integer;
    HighWord: DWord;
  begin
    assign(outfile, 'COMPTEST.TXT');
    rewrite(outfile);
    for i := 1 to 2000 do
      writeln(outfile, 'Test.');
    close(outfile);
 
 
    if CompressFile('COMPTEST.TXT', true) then
       Writeln('File is compressed.')
    else
       Writeln('File compress Failed.');
    readln;
    fattr := FileGetAttr('COMPTEST.TXT');
    if (fattr and faCompressed) = faCompressed then
      writeln('File shows to be compressed.');
    writeln('  Compressed size is: ',
             GetCompressedFileSize('COMPTEST.TXT', HighWord), ' bytes.');
    readln;
 
    if CompressFile('COMPTEST.TXT', false) then
       Writeln('File is decompressed.')
    else
       Writeln('file deCompress Failed.');
    readln;
    fattr := FileGetAttr('COMPTEST.TXT');
    if (fattr and faCompressed)  faCompressed then
      writeln('File shows to be not compressed.');
    writeln('Uncompressed size is: ',
             GetCompressedFileSize('COMPTEST.TXT', HighWord), ' bytes.');
    readln;
  end.