1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var  
  CompressedFile, PluginFile: TFileStream;
  Compressor: Zlib.TDecompressionStream;  
begin
  CompressedFile := TFileStream.Create(filename, fmOpenRead);
  CompressedFile.Seek(0, sofrombeginning);
  PluginFile := TFileStream.Create(Filename + '.unc', fmCreate);
  Compressor := TDeCompressionStream.Create(PluginFile);
  Compressor.CopyFrom(CompressedFile, CompressedFile.Size); 
  Compressor.Free;
  CompressedFile.Free;
...					

1:

Compressor.CopyFrom(CompressedFile, CompressedFile.Size);					

1:
2:
3:
4:
5:

  while True do
    begin
      i := Compressor.Read(Buffer, 1);
      if i <> 0 then PluginFile.Write(Buffer, i) else Break;
    end;