Распаковка Zip в память

procedure TForm1.FormCreate(Sender: TObject);
var
  SL: TStringList;
  I: Integer;
  InpS, OutS: TMemoryStream;
begin
  SL:=TStringList.Create;
  InpS:=TMemoryStream.Create;
  OutS:=TMemoryStream.Create;
  try
    //Запишем какой-нибудь мусор.
    for i := 0 to 100 do SL.Add(Format('Some text, line $.3d',[i]));
    SL.SaveToStream(InpS);
    InpS.Seek(0, soFromBeginning);
    CompressStream(InpS, OutS); //Сожмем данные. (в исходнике есть нужные функции)
    OutS.Seek(0, soFromBeginning);
    //Тут что-то делаем с нашими сжатыми данными.
    OutS.SaveToFile(ChangeFileExt(ParamStr(0),'.bin'));
    //В своем примере я их сохраню.
    //В случае если требуется их передать на веб-сайт, то можно завернуть буфер
    //в какой-нибудь XML.
  finally
    FreeAndNil(SL);
    FreeAndNil(InpS);
    FreeAndNil(OutS);
  end;
end;