[JunkieBeat]

Imikle, спасибо за ответ,вот только возникла ошибка при чтение файла,сохраняет хорошо а вот при чтение выдает ошибку "EDecompressionError 'Invalid Stream Operation' " вот код

Код:

procedure TForm1.btn2Click(Sender: TObject);
var
  AZLib : TDecompressionStream;
  AStream : TFileStream;
begin
  AStream := TFileStream.Create('C:\Users\User\Desktop\Новая папка (3)\qwe.txt',fmOpenRead);
  AZLib := TDecompressionStream.Create(AStream);
  Try
    mmo1.Lines.LoadFromStream(AZLib);/////вот тут ошибка
  Finally
    AZLib.Free;
    AStream.Free;
  End;

end;