problema con DBGRID.selectedfield.isnull

[gloritavn]

Hola foristas:
tengo una forma en la que manejo un dbgrid y cuando este se encuentra vacio si tu das doble click en el o si das un enter o un backspace al estar vacio no debe ocurrir algo.... esto lo estoy controlando en los siguientes eventos:

procedure TFasignadi.DBGdiagregadoDblClick(Sender: TObject);
begin
if (Iadis=6)and not(DBGdiagregado.selectedField.IsNull)then
begin
Svadiemp:=DBGdiagregado.Fields[0].AsString;
BBeliminaadi.setfocus;
end;
end;

procedure TFasignadi.DBGdiagregadoKeyPress(Sender: TObject; var Key: Char);
begin
if((key=#13)or(key=#9))and(Iadis=6)and not DBGdiagregado.SelectedField.IsNull)then
begin
if(Iadis=6)then
begin
Svadiemp:=DBGdiagregado.Fields[0].AsString;
BBeliminaadi.setfocus;
end;
end
else
key:=#0;
end;

pero al momento de ejecutar el proyecto marca el error siguiente: acces violation at address 004EB1D1 in module 'proyecto.exe'. Read of address 00000000 esto solo ocurre en esta forma ya que en otras utilizo el mismo procedimiento y no hay error utilice un watch para ver el valor de DBGdiagregado.SelectedField.IsNull y no muestra si el valor es true o false muestra lo siguiente expression illegal in evaluator.... desde ya mil gracias por su atencion