Jak wyszukać pozycje w FileListBox

Jak wyszukać pozycje w FileListBox?

Pomocy {hello}

var
I : Integer;

begin
for I := 0 to Pred(FileListBox1.Items.Count) do
begin
if Pos('a',FileListBox1.Items.Strings[i]) &lt&gt 0 then
begin
Application.MessageBox('Znaleziono', 'MAM', MB_IconInformation);
FileListBox1.Selected[i]:= true;
break;
end;
end;
end;

Najlepiej stworzyć właśnie taką lub podobną petlę to już zależy od twojej woli i
pomysłu, ja żeby Ci to zailustrować napisałem taką.--Delphi 6; Pozdrawiam eSka :-)