resultado de una consulta

[Yulka]

Hola, este es mi procedimiento

Código Delphi [-]
procedure TfrmTAlta.cmdEliminarClick(Sender: TObject);
begin
   try
    if (MessageDlg('¿Desea eliminar el Tipo de Alta?', mtWarning,[mbYes, mbNo],0) = mrYes) then
      DMABMTablas.ABMTablas.TTalta.Delete;
   except
   on EDatabaseError do
      MessageDlg ('Error en el acceso a la Base de Datos',mtError,[mbOK],0);
   on E: Exception do
      MessageDlg('Error en ' + E.ClassName + ': '+ #10 + E.Message,mtError,[mbOK],0);
   on EAccessViolation do
      MessageDlg ('Error en el acceso a la Base de Datos2',mtError,[mbOK],0);
   end;
    
end;

pero no logro capturar el error de "Violation foreign key......." para mostrar un cartel de error
Gracias