[МАрковка]

Всем доброго времени суток!
Помогите, пожалуйста.
На Форм1 есть Дбгрид1 и ДБгрид2. В ДБгрид2 встроен ДБКомбобокс, который берет данные из ДБГрид1.
вот код, который у меня сейчас... НО в итоге получается вот так (см.вложения). В комбобокс данные попадают только после нажатия на строку в Дбгрид1.

Код:

procedure TForm1.DBComboBox1DropDown(Sender: TObject);
var
  i: integer;
begin
  i := 0;
  while i < DBGrid1.DataSource.DataSet.RecordCount do
  begin
  DBGrid1.Columns[0].PickList.Add(DBGrid1.Fields[0].AsVariant);
  inc(i);
  end;
  DBComboBox1.Items.Assign(DBGrid1.Columns[0].PickList);
end;

Админ: 3-х дневный бан за теги.