Fórum Dúvida Sobre ComboBox / ListBox #209781

var Lista: TStringList;
begin
Lista := TStringlist.Create;
whith query do
begin
Close;
Sql.clear;
Sql.Add(´Select Nome from clientes´);
Open;

while not eof do
 begin
  Lista.Add(Fields[0].AsString);
  Next;   
 end;
end;