Basically we need a function that with the below parameters:
procedure ZlibCompressStreamEx(InStream, OutStream: TStream;
NumLevel: Integer; StreamType : TZStreamType; offset : integer; length : integer)
which will start compressing from offset for length bytes. This function will be an addition to ICS Zlibhigh unit from www.overbyte.be. There is already code for starting from offset but until the end of the stream.
The reason we repost this for a much higher amount is because our solution did not work well and we need a good Delphi coder.