點擊Dbgrid數據顯示在combobox

1. procedure   TForm1.DBGrid1CellClick(Column:   TColumn);   
2.   begin   
3.       with   DBGrid1.DataSource.DataSet   do   
4.       begin   
5.               if   Active   and   (RecordCount<>0)   then   
6.               ComboBox1.Text:=   FieldByName(Column.FieldName).AsString;   
7.       end;   
8.   end;