Solución para el error "Field ID not found"

[Calderin]

Hola a todos, necesito ayuda con un problemilla que tengo en una aplicación cliente / servidor que estoy desarrollando. Estoy utilizando Interbase 6.5 y Delphi 7. Las conexiones las realizo con IBDataSet.

A continuación pongo un ejemplo del código con el que tengo el problema. En el código del ejemplo lo que hago es eliminar un registro seleccionado, pero el error me ocurre tanto cuando inserto, elimino, modifico y refresco.

   if dmPrincipal.dsetFamilia.Fields[0].Value <> null then
 	begin
 	  if   MessageDlg('¿Seguro que desea borrar el registro seleccionado?', mtInformation, [mbYes, mbNo],0) = mrYes then
 		begin
 		  dmPrincipal.dsetFamilia.Delete;
 		  dmPrincipal.dsetFamilia.ParamByName('ID').AsInteger := dmPrincipal.dsetFamilia.Fields[0].Value;
 		  dmPrincipal.dsetFamilia.Open;
 		end
 	  else
 		  dmPrincipal.dsetFamilia.Open;
 	end
   else
 	MessageDlg('Debe seleccionar un registro para eliminarlo', mtInformation, [mbYes], 0)

Haciendo la traza del programa el error se produce en la linea en la que le indico el parámetro ("ID"). El mensaje de error es el siguiente: "Field "ID" not found." El error me lo devuelve como he comentado antes tanto haciendo insert, delete ... Lo extraño es que a pesar de mostrar el error, elimina el registro.

Buenos gracias de antemano, y si alguien tiene algunas respuesta para mi enigma de deberé unas cuantas noches en vela.

Un saludo.