FireDAC обработка ошибок -или в чем прикол ?

try
 
            qMain.Disconnect();
 
            // Attention here ! Original statement FDQuery.SQL.Text
            // should be without semicolon, also without params
            qMain.SQL.Text:=FInitialSQLText;
            qMain.SQL.Text:=qMain.SQL.Text+' LIMIT :StartRow,:CountOfRows';
 
 
            with qMain do begin
 
            if FIsSomeUser then Params.ParamValues['users_id']:=FIDUser;
 
            if FIsSomeFileType then Params.ParamValues['FileType']:=FFileType;
            
 
            Params.ParamValues['StartRow']:=AStartRow;
            Params.ParamValues['CountOfRows']:=ACountOfRows;
 
 
            end;
 
 
 
           qMain.Open();
 
         except
 
          on E: EFDException do
          raise Exception.Create('Error Message '+E.Message);
 
          on E: EFDDBEngineException do
          raise Exception.Create('Error Message '+E.Message);
 
          on E: Exception do
          raise Exception.Create('Error Message '+E.Message);
 
     end;

procedure TDBPagination.qMainError(ASender, AInitiator: TObject; var AException: Exception);
 
var oExcDB: EFDDBEngineException;
    oExc: EFDException;
 
begin
 
//
if AException is EFDException then
 
  begin
 
    oExc:=EFDException(AException);
    raise Exception.Create('Error Message '+oExc.Message);
 
  end;
 
if AException is EFDDBEngineException then
 
  begin
 
    oExcDB:=EFDDBEngineException(AException);
    raise Exception.Create('Error Message '+oExc.Message);
 
  end;
 
 
 
end;

  qMain.OnError:=qMainError;

try
except
  on E:Exception do Showmessage(E.Message);
end

FDConnection1.StartsTransaction;
try
  FDQuery1.ExecSQL;
  FDConnection1.Commit;
except
  on E: EFDDBEngineException do begin
    FDConnection1.Rollback;
    // do something here
    raise;
  end;
end;

try
...
except
  on E: XXXException do
    raise Exception.Create('Error Message '+E.Message);
end;