该问题如何解决？？？

我在一个数据编辑窗口，点击一个speedbutoon打开一个查询窗口，在编辑窗口又两个dbgrid 每次只有一个时显示的，
speedbutton clicked  事件的代吗时这样的
procedure TDataEdit_Form.SpeedButton14Click(Sender: TObject);
var
     Edit_CX_Form:TEdit_CX_Form;
begin
     Edit_CX_Form:=TEdit_CX_Form.Create(self);
     Edit_CX_Form.Update;
     Edit_CX_Form.Showmodal;
end;
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
然后在新窗体的formshow 有下面的代码；
procedure TEdit_CX_Form.FormShow(Sender: TObject);
var
index:integer;
begin
if dataedit_form.DBGrid_C.Visible=true then //到这里就出现地址访问出错之类的提示，请问这是什么原因？？？？？
  //if  dataedit_form.ActiveControl.Name='DBGrid_C'then
   begin
   index:=dataedit_form.DBGrid_C.SelectedIndex;
   label2.Caption:=trim(dataedit_form.DBGrid_C.Columns.Item[index].Title.Caption);
   fieldname:=dataedit_form.DBGrid_C.Fields[index].FieldName;
   end;
if dataedit_form.DBGrid_E.Visible=true then
//if  dataedit_form.ActiveControl.Name='DBGrid_E'then
   begin
   index:=dataedit_form.DBGrid_E.SelectedIndex;
   label2.Caption:=trim(dataedit_form.DBGrid_E.Columns.Items[index].Title.Caption);
   fieldname:=dataedit_form.DBGrid_E.Fields[index].FieldName;
   end;
end;