[e8gen]

У меня есть процедура для поиска текста Edit в списке ListBox. Нужно чтобы она искала символы нижнего и верхнего регистра при вводе строки. Вот процедура:

Код:

procedure TForm1.Search;
var
  n: integer;
  substr: String;
  s: String;
begin
for n:=0 to ListBox1.Count-1 do
 begin
 substr:=LowerCase(Edit1.Text);
 s:=LowerCase(ListBox1.Items[n]);
 if Pos(substr,s)=1 then LoadCharacter(n);
 end;
end;

Админ: пользуемся тегами для оформления кода!

Но она не работает! Подскажите, что делать, а то я не знаю. Заранее спасибо!