[Julià T.]

prueba con

for datos := 0 to tabla.FieldCount-1 do
  if (tabla.Fields[datos].Required) and (tabla.Fields datos].Text  '')   then begin
   showmessage('Debe introducir un valor en '+ tabla.Fields   datos].DisplayName);
 dbgrigd.setfocus;
 dbgrigd.SelectedField:=tabla.Fields[datos];
  exit;
 end;