Capturar mensajes de error de SQL server

[Investment]

try
  query.ExecSQL;
except
  on e:exception do
  begin
	ShowMessage(e.exception); //si comentas esta linea sólo verás tú mensaje.
	ShowMessage('Error al actualizar BD.'); 
  end;
end;

[User_baja1]

Gracias, con ello he podido coger solo el trozo de error que me interesa.

Dado que el error pone:

General SQL error.
[Microsoft][ODBC SQL Server Driver][SQL Server] NO SE PUEDE BLA BLA BLA
[Microsoft][ODBC SQL Server Driver][SQL Server]La petición COMMIT TRANSACTION no tiene la correspondiente BEGIN TRANSACTION.
[Microsoft][ODBC SQL Server Driver][SQL Server]Se terminó la instrucción.

me he creado la siguiente funcion:
function MsgErrorDB(s:String):String;
var aux:String; i,j:integer;
begin
i:= pos('[SQL Server]',s);
i:= i+ length('[SQL Server]');
aux:= copy(s,i+1, length(s));
j:= pos('[Microsoft]',aux);
if j=0 then j:=length(aux);
if (i=0) or (j=0) then aux:= s
else aux:=#13+copy(aux,1,j-1);

result:=aux;
end;


que me devuelve el error: NO SE PUEDE BLA BLA BLA