[[Lepe]]

Un apunte al primer código de caral:

Código Delphi [-]
 AdoQuery1.SQL.Text := 'Select TuCampo From TuTabla';
   AdoQuery1.Active := True;
try
   AdoQuery1.DisableControls;
   While not AdoQuery1.Eof do
   begin
      Combobox1.Items.Add(AdoQuery1.Fields[0].Text);
      AdoQuery1.Next;
   end;
finally
  AdoQuery1.EnableControls;
end;

Usando Enable/Disable Controls permite que un bucle normal de 5 segundos de ejecución, se ejecute en menos de medio segundo.

Saludos.