Código Delphi [-]stream2 := TStringStream.Create(System.Utf8ToAnsi(s1.DataString), TEncoding.ANSI);
stream2 := TStringStream.Create(System.Utf8ToAnsi(s1.DataString), TEncoding.ANSI);