adjuntar los registro de un campo de mi tabla en un DBcombobox

[douglas]

gracias caral funciono re bien , aaaw, que buenas personas son todos ustedes, funciono re bien, muestra todas las empresas, el codigo me quedo asi:
Código

procedure TForm1.Button1Click(Sender: TObject);
begin Query1.Active:=false;
Query1.SQL.Text:='Select empresa from Empresa';
Query1.Active:=true;
while not Query1.Eof do
begin
combobox1.Items.Add(Query1.Fields[0].text);
Query1.Next;
end;


obviamente al pulsarlo, me reconocera todas las empresas que tenga almacenadas en mi tabla

pero se podra hacer esto solamente al abrir el form ???????

la verdad es que si se puede aprovechando el procedimiento creacion del form, aplique el mismo codigo solo agregando el codigo para limpiar el combobox, puesto que al iniciar varias veces el form, el combobox se iba llenando, a todos muchas gracias aqui les dejo el ejemplo.
procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Clear;
Query1.Active:=false;
Query1.SQL.Text:='Select empresa from Empresa';
Query1.Active:=true;
while not Query1.Eof do
begin

combobox1.Items.Add(Query1.Fields[0].text);
Query1.Next;
end;
end;

gracias todo me funciona de maravilla