Se me ocurre con una funtion más o menos así:
Código Delphi
[-]
function FormateaTextoExcepcion (cCadena : string) : string;
var
i, l : integer;
begin
i := Pos('exception 1', cCadena);
l := length ('exception 1');
if i > 0 then
Result := Copy (cCadena, i+l+1, length(cCadena)-(i+l+1)+1)
else
Result := cCadena;
end;