捕捉存储过程错误

Question

  ADOQUERY1 := TADOQuery.Create(nil);
  try
    with ADOQUERY1 do
    begin
        begin
          Connection :=Self.Connection;
  SQL.Text := ' DECLARE @ErrorMsg VARCHAR(100) '     //存储过程信息
          +' EXEC sp_UpDataSM_FabricRemain_Out '
          +' '''+ sStockOutID + ''', '
          +' '''+ sIsPost + ''', '
          +' '''+ sType_OutDye+''','
          +' @ErrorMsg OUTPUT ' ;
        end;
      Connection.Errors.Clear;
      Connection.BeginTrans;
      Close;
      ExecSQL;
      if  Connection.Errors.Count >0 then
         raise  Exception.Create(Connection.Errors.Item[0].Description);
      Connection.CommitTrans;
      FreeAndNil(ADOQUERY1);
   end;
  except    On E:Exception do
    begin
      if E.Message<>'' then
        SystemError(E.Message,0)
      else
        ShowMessage('操作过程出错，请重试！');
      ADOQUERY1.Connection.RollbackTrans;
     // Result := False;
      FreeAndNil(ADOQUERY1);
    end;
 end;