siguiendo la sugerencia de ixMIKe esto es lo que hago....
Código Delphi
[-]private
Lista : TStringList;
..............
procedure TForma1.FormShow(Sender: TObject);
begin
Lista := TStringList.Create;
/*Aqui lleno tanto la lista como el Combobox*/
Lista.Clear;
ComboBox1.Clear;
with Query do
begin
close;
Sql.Clear;
Sql.Add('SELECT campo_lista, campo_combo');
Sql.Add('FROM nombre_tabla');
open; first;
while not (eof) do
begin
lista.Add(fieldbyname(campo_lista).AsString);
combo.Add(fieldbyname(campo_combo).AsString);
next;
end;
close;
end;
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Lista.Free
end;
Espero que ahora este mucho más claro... saludos!