como faço pra fuincionar?

olá a todos

criei uma função q teoricamente só me mostraria no shelllistview as pastas, e os arquivos do tipo especificados no combobox, teoricamente sem precisar mexer em nada, quando inicio o programa aparece assim :

/applications/core/interface/imageproxy/imageproxy.php?img=http://img252.imageshack.us/img252/9145/imagem7yh9.png&key=f1a759d8cad153bb568e377212dec44da001627a0ee9d380f1a7a695ca343aa8" alt="Imagem Postada" />

e depois q eu clico e seleciono ele, ele faz oq devia ter feito sem precisar mexer :

/applications/core/interface/imageproxy/imageproxy.php?img=http://img64.imageshack.us/img64/499/imagem8gb8.png&key=6b68759228f72ae575483f6b0419d806c73b9f77f4b399bbc9c5eb15dd9ff5a0" alt="Imagem Postada" />

o código é esse :

procedure TAbrir.ComboBox1Change(Sender: TObject);var x: integer;beginext:='.';if ComboBox1.Text <> '' then begin ext:=ComboBox1.Text; for x:=1 to Length(ext) do begin if copy(ext,x,1) = '(' then begin ext:=copy(ext,x + 1,5); Break; end; end; end;ShellListView1.Refresh;end;a propriedade itemindex dele ta como 0

oq tem q mexer pra ele funcionar direto?

uma última dúvida, como eu faço para q naum modifiquem o texto dentro do combobox enquanto o programa estiver sendo executado?