[jhonny]

Prueba con el siguiente codigo y nos cuentas si te funciona...

Código Delphi [-]
try

  //Lo que tienes que hacer para guardar dicho dato

except
on E: EDBEngineError DO
begin
  if E.Errors[0].ErrorCode = 9733 then //9733 es el codigo de error de los ForeingKey
  begin
    ShowMessage('No se puede eliminar, hay registros relacionados en la tabla XXX'); //Organizas tu mensaje aqui...
  end
  else
  begin
    raise; //Por si no es error de ForeingKey si no mas bien otra cosa...
  end;
end;