[[duilioisola]]

Supongo que podrías poner todo en un bloque try..except y parsear el mensaje de error:

Código Delphi [-]
try
   {ejecutar el query}
except
   on e:exception do
   begin
      FK := ExtraerFK(e.Message);
   end
end