form1.edit1.text:=dbgrid1.DataSource.DataSet.FieldByName('xh').AsString;
如果datasource.dataset动态设定则用动态连接的Query或Ttableform1.edit1.text:=Query1.FieldByName('xh').AsString;