Why do you write the generated files hint format error, decoding inside out is the code? Please give an idea!
Procedure TForm1. Button5Click (Sender: TObject);
Var
M1: TMemoryStream;
M2: TFileStream;
SS: TStringStream;
The begin
M1:=TMemoryStream. Create;
SS:=TStringStream. Create (Memo1. Lines. The Text).
DecodeStream (ss, m1);
M2:=TFileStream. Create (' E: \ PDF PDF, fmCreate);
M2. Position:=0;
M2. Write (m1, m1. Size);
M1. Free;
M2. Free;