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;