procedure comprimir(origen,destino:string);
var LInput, LOutput: TFileStream;
LZip: TZCompressionStream;
begin
LInput := TFileStream.Create(origen, fmOpenRead);
LOutput := TFileStream.Create(destino, fmCreate);
LZip := TZCompressionStream.Create(LOutput, zcDefault, 15 + 16);
LZip.CopyFrom(LInput, LInput.Size);
LZip.Free;
LInput.Free;
LOutput.Free;
end;