[Resolvido] Inserir dados de um select em uma TStringList

Ola galera bom dia !

To com um probleminha aqui...hehe

seguinte preciso fazer uma busca simples no banco de dados firebird!

uso o seguinte comando

 QtrasProd.close;
 QtrasProd.SQL.Clear;
 QtrasProd.SQL.Text:='SELECT campo_da_tabela FROM tabela WHERE campo_da_tabela LIKE'+QuotedStr(Edit3.Text)+'%';
 QtrasProd.Open;

até aqui tubo bem,

so que necessito colocar os dados para o cliente selecionar,em um combobox,que usa a TstringList,

com o codigo seguinte

prod_lista.Add(QtrasProd.FieldByName('NOME_PRO').AsString);

O problema se inicia aqui

so consigo colocar o mesmo registro, ele nao coloca os outros dados a disposiçao apenas o primeiro da lista.

como poderia colocar todos os dados do result no combobox?

desde já agradeço.