Error en los envíos que no puedo detectar

[seccion_31]

¿guardar el resultado?

evento: afterExecute

procedure TEventosHttpPrio.AfterExecute(const MethodName: string; SOAPResponse: TStream);
var
ss :TFileStream;
sTmp:TStringList;
CertStream: TMemoryStream;
sesion:integer;
begin
if fileNameAfter<>'' then
begin
sTmp := TStringList.Create;
sTMP.SaveToStream(SOAPResponse);
try
SOAPResponse.Position := 0;
sTmp.LoadFromStream(SOAPResponse);
sTmp.text:=FormatXMLData(sTMP.Text);
sTmp.SaveToFile(fileNameAfter);
finally
FreeAndNil(sTmp);
end;
end;
end;