Wyszukiwanie produktu

Cześć!
Jak zrobić, aby program po kliknięciu na przycisk, szukał w ListBoksie wszystkich Itemów z tekstem z edita, a następnie wyszukane kopiował do następnego listboxa??

myślę nad taką procedurką:

if pos(edit1.Text,ListBox2.Items.Text) > 0 then

ale nie wiem co wstawić po then, bo

List.Items.Add(pos(edit1.Text, ListBox2.Items.Text);

nie działa...

Proszę o jaknajszybsze odpowiedzi, i o to, aby admini nie usuwali tego posta :P

P.S. Listbox z którego ma program szukać to ListBox2, a listbox do którego program ma dodawać wyszukane pozycje, to List.

var
  i: integer;
begin
  for i := 0 to ListBox2.Items.Count -1 do
  begin
    if Pos(Edit1.Text, ListBox2.Items.Strings[i]) > 0 then List.Add(ListBox2.Items.Strings[i]);
  end;
end;

dzięks :P
działa :P
Prawie identyczny kod mi kolega przysłał, ale brawo znajomości :D

P.S. następne pytania - Jak wyłączyć dźwięk w edit? Jak zrobić, aby program ignorował znak "%" na początku tekstu w edit?

Te pytania są tesh częscią tego tematu, więc niech admini nie wywalają :P