[azsx]

Я установил на форму компонент TIdCompressorZLib. Теперь я хочу из заранее созданной переменной stroka получить ее сжатую копию stroka_compress, а также разархивировать сжатую сроку stroka_decompress. Как это делается?

Код:

unit Unit2;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs;

type
  TForm2 = class(TForm)
    IdCompressorZLib1: TIdCompressorZLib;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  stroka : UTF8string;
  stroka_compress : UTF8string;
  stroka_decompress : UTF8string;
implementation

{$R *.fmx}

procedure TForm2.FormCreate(Sender: TObject);
begin
  stroka := 'Это строка в ней могут быть ру и енгл символы, а также не печатаемые acii символы (табуляция) и прочее, саму строку я получаю из файла';
  // stroka_compress := Как сжать переменную???
    // stroka_decompress := Как разъархивировать переменную???
end;

end.