procedure TForm7.ComboBox1Enter(Sender: TObject);
begin
Datamodule2.Table2.Open;
Datamodule2.Table2.First;
Datamodule2.Table2.Refresh;
while not Datamodule2.Table2.Eof do
begin
DataModule2.Table2.Refresh;
ComboBox1.Items.Add(Datamodule2.Table2.FieldByName('Descripción').AsString);
Datamodule2.Table2.Next;
end;
end;