Boa tarde Regys,
Resolvi o problema incluindo o código na função a baixo. Neste caso o automação coleta mensagem vinha com uma
quebra de linha antes de "CARTAO COM CHIP" que que resultava na decodificação uma campo vazio para a mensagem ao operador.
procedure TACBrTEFDVeSPagueCmd.SetFrameEnvio(const AValue : AnsiString) ;
Var
Buffer : AnsiString;
begin
fsParams.Clear;
fsSequencial := 0 ;
//Linha Incluida
Buffer := StringReplace(AValue,'automacao_coleta_mensagem="'+#10,'automacao_coleta_mensagem="',[rfReplaceAll]);
//
Buffer := StringReplace(buffer,'"'+#10,'[LineBreak]',[rfReplaceAll]);
Buffer := BinaryStringToString(Buffer);
Buffer := StringReplace(Buffer,'[LineBreak]','"'+sLineBreak,[rfReplaceAll]);
fsParams.Text := Buffer;
fsIsColeta := (GetParamInteger('automacao_coleta_sequencial') > 0);
end;