Поиск в ListBox

[kodov]

Здравствуйте!
Помогите пожалуйста разобраться с проблемой.
Есть код:
var
i: integer;
flag: boolean;
begin
if personslist.Items.Count=0 then
begin
showmessage('There are no elements to find');
mainform.Show;
end
else if edit1.Text='' then begin
showmessage('Enter something to find');
mainform.Show;
end;
i:=0;
flag:=false;
repeat
if Pos(LowerCase(Edit1.Text),LowerCase (personslist.Items.Strings[i]))<>0 then
begin
personslist.Selected[i]:=true;
n:=i;
flag:=true;
end;
inc(i);
until (i=personslist.Count-1) or (flag=true);
end;
Этот код работает, но когда в списке более 300 элементов,то
поиск подглючивает. Он никак не хочет находить последние несколько элементов.
Заранее спасибо.

[mihali4]

Вроде явных грубых ошибок не видно, но:
1. После mainform.Show; должно следовать exit; Думаю, понятно, почему...
2. Гораздо проще цикл организовать так:
for i:=0 to personslist.Items.Count-1 do
begin
....
if not flag then
break;
......
end;
3. Условие по Pos лучше cделать так: if Pos(....)>0 then
Сейчас не вспомню, но в каких-то случаях эта функция может возвращать -1.

Кстати, обратите внимание на вашу строку "until (i=personslist.Count-1) or (flag=true);"

[kodov]

Спасибо за ответ.