怎样使不同窗口使用同一窗口的值 ( 积分: 0 )

当我双击dbgrideh某行时 某列的数据就传到另一窗口里 我的代码是这样的 运行提示地址错误
procedure Tvendor_unit.DBGridEh1DblClick(Sender: TObject);
begin
if dbgrideh1.DataSource.DataSet.IsEmpty then
begin
showmessage('没有数据无法选取');
exit;
end
else
begin
if vendor_list.Showing then
begin
vendor_list.ComboEdit1.Text:=dbgrideh1.Fields[0].AsString ;
close;
end;
if inhouse.Showing then
begin
inhouse.ComboEdit1.Text:=dbgrideh1.Fields[0].AsString ;
close;
end;
end;
end;

不见的是“给其它窗口的控件赋值”的问题，你简化一下程序，比如不用DBgride而用Stringgride。

if vendor_list.Showing then
begin
inhouse.ComboEdit1.Text:=adoquery1.fieldbyname('vendor_name').Value ;
inhouse.label20.Caption:=adoquery1.fieldbyname('vendor_id').Value ;
close;
end;
if inhouse.Showing then
begin
vendor_list.ComboEdit1.Text:=adoquery1.fieldbyname('vendor_name').Value;
vendor_list.Label3.Caption:=adoquery1.fieldbyname('vendor_id').Value ;
close;
end;
end;
我这样写也还是不行