Numero não determinado de itens em listbox

use um DirectoryListBox e um fileListBox
na propriedade FileList do DirectoryListBox1 coloque fileListBox1
e um combobox;
a rotina;

var
i:integer;
s:string;
begin
combobox1.items.clear//limpa;
For i:=0 to filelistbox1.items.count -1 do
begin
s:=filelistbox1.items[i];
if pos(´.exe´,s)>0 then
combobox1.items.add(s);//adiciona;
end;
end;


Te´ Mais.

Eu coloquei todos os componentes, inclusive com o filelistbox na propriedade do directorylistbox.
Coloquei também, a rotina no evento [i:1f1309ad4a]Change[/i:1f1309ad4a] do directorylist.

Só que não aparece nenhum item no combobox.