Fórum Erro ao escrever o conteúdo de um TMemoryStream numa variável do tipo string #477679

procedure TxTela_001.xBitBtn1Click(Sender: TObject);
var
  strArquivo: string;
  dlgArquivo: TOpenDialog;
  mstArquivo: TMemoryStream;
  mstOArquivo: TMemoryStream;
begin
  inherited;

  dlgArquivo := TOpenDialog.Create(Self);

  if (dlgArquivo.Execute) then
  try
    mstArquivo := TMemoryStream.Create;
    mstArquivo.LoadFromFile(dlgArquivo.FileName);

    SetString(strArquivo, PChar(mstArquivo.Memory), mstArquivo.Size);

    mstOArquivo := TMemoryStream.Create;
    mstOArquivo.Write(Pointer(strArquivo)^, Length(strArquivo));
    mstArquivo.SaveToFile('y:\arquivos\arquivo' + FormatDateTime('hhmmss', now()) +
      Copy(dlgArquivo.FileName, Length(dlgArquivo.FileName) - 3));

    mstOArquivo.Free;
    mstArquivo.Free;
  except
    mstOArquivo.Free;
    mstArquivo.Free;
  end;