[[poliburro]]

Por que no pruebas con la clase

Código Delphi [-]
Try
tablas.ADOQuery1.SQL.Clear;
tablas.ADOQuery1.SQL.Text:=cad;
tablas.ADOQuery1.ExecSQL;
application.MessageBox('Registro Agregado','Información',mb_ok+mb_iconinformation);

except
on E:Exception do begin
// Levantamos la excepción
MessageDlg('Se asignara un nuevo folio:' +E.Message, mtError, [mbOK], 0);
self.CalcularFolio;
end;