[pborges36]

No son los mismos componentes que yo uso, pero es mas o menos asi:

Código Delphi [-]
try
  ...
  ...
  Query1.ExecSQL; 
except
  on e : EDatabaseError do
    begin
         MessageDlg('el error es el siguiente: '+e.Message,mtWarning,mbOk],0); 
 
    end; 
end;

De todas formas hay mucha informacion sobre esto enel foro, solo es cuestion de buscar un poco mas.saludos.