var
  _AlterarConvenio: IspdRetAlterarConvenio;
  _Id: WideString;
begin
  mmoResposta.Lines.Clear;
  mmoResposta.Refresh;
  mmoResposta.Lines.BeginUpdate;

try
    _Id := edtIDConvenio.Text;
   _AlterarConvenio := FBoletoX.AlterarConvenio(_Id, mmoTX2.Lines.Text);
  mmoResposta.Lines.Clear;
  mmoResposta.Lines.Add('.:: ALTERAR CONVENIO ::.');
  mmoResposta.Lines.Add('Mensagem: ' + _AlterarConvenio.Mensagem);
  mmoResposta.Lines.Add('Status: ' + _AlterarConvenio.Status);
  mmoResposta.Lines.Add('');

if _AlterarConvenio.Status = 'SUCESSO' then
begin
  mmoResposta.Lines.Add('  Id Convenio: ' + _AlterarConvenio.IdConvenio);
  mmoResposta.Lines.Add('  Numero Convenio: ' + _AlterarConvenio.NumeroConvenio);
  mmoResposta.Lines.Add('  Descricao: ' + _AlterarConvenio.DescricaoConvenio);
  mmoResposta.Lines.Add('  Carteira: ' + _AlterarConvenio.Carteira);
  mmoResposta.Lines.Add('  Especie: ' + _AlterarConvenio.Especie);
  mmoResposta.Lines.Add('  Padrao CNAB: ' + _AlterarConvenio.PadraoCNAB);
  mmoResposta.Lines.Add('  Utiliza VAN: ' + BoolToStr(_AlterarConvenio.UtilizaVan));
  mmoResposta.Lines.Add('  Numero Remessa: ' + _AlterarConvenio.NumeroRemessa);
  mmoResposta.Lines.Add('  Reiniciar Numero Remessa: ' + BoolToStr(_AlterarConvenio.ReiniciarDiariamente));
  mmoResposta.Lines.Add('');
end;
mmoResposta.SelStart  := 1;
mmoResposta.SelLength := 1;

finally
    mmoResposta.Lines.EndUpdate;
    mmoTX2.Lines.Clear;
  end;
end;