Szukanie w ListBox

Napisałem program, który wczytuje do Listbox'a nazwy plików o rozszerzeniu txt. Chodzi mi o to aby po wpisaniu nazwy do pola edit, w listboxie pojawiły się pliki o podobnej nazwie. Np wpisuje pole a w listboxie pojawia się: polemika, polemizować itp.

1. Duuuża baza wyrazów i ich procentowe podobieństwo

2. Sztuczna sieć neuronowa

<font color="blue">[</span><font color="red">ADD</span><font color="blue">]</span>
HEHE... To ja nie skumałem:)

Np wpisuje pole a w listboxie pojawia się: polemika, polemizować itp.

Wziąłem, że wpisuje coś do tego pola... :) Gdyby użył cudzysłowie lub apostrofu, byłoby to bardziej zrozumiałe...

Ja bym to zrobil w prosty (banalny) sposob, nie wiem tylko, czy o to ci chodzi:

var S : String;
I:Integer;
begin
S:=Edit1.Text;

For I:=0 to ListBox1.Items.Count-1 do
                 If Pos(S, ListBox1.Items[i])>0 then
                                  ListBox2.Items.Add(ListBox1.Items[i]);
end;

[cya] [browar]