Кто занет робота с ListBox в делфи

[spalms]

у меня есть ListBox я хочу сделать поиск по 3 первым символам строки но не знаю как для одной строки я сделал а вот дальше. помигите кто знает для отной строки я написал следующий код

var s:string;
begin
for i:=0 to ListBox1.Items.Count-1 do
begin
s:=ListBox1.Items[i];
if (s[1]=IntToStr(text)) then
begin
libel1.caption:=ListBox1.Items[i];
end;

[BoozZzilla]

предлагаю автору найти нормальный переводчик и написать по русски, лично я ничего не понял
тут проверяется соответствие первого символа строчки ListBox-a какой то переменной text, что надо то?
проверять соответствие трёх символов строчки из ListBox трём символам из переменной text?

[psycho-coder]

Необходимо сделать поиск в ListBox по первым 3-м символам.

[spalms]

мне нужно найти в листбокс например цифру 10 листбокс будет заполнен примерно так:
цйцуцй10
пдлпо1000
пло3
10
если просто искать по ему то найдет первую запись с числом 10 и выведет цйцуцй10, а мне нужно только 10

[spalms]

Сообщение от psycho-coder

Необходимо сделать поиск в ListBox по первым 3-м символам.

да, только по первым символам

[psycho-coder]

Вот так пойдет?

procedure TForm1.Edit1Change(Sender: TObject);
var
  i: Integer;
  Str: String;
begin
  for i := 0 to ListBox1.Count - 1 do
  begin
    Str := Copy(ListBox1.Items[i], 1, 3);
    if Edit1.Text = Str then
      ListBox1.Selected[i] := true;
  end;
end;

Как только ведешь 3 символа, выделит первый попавшейся item

[BoozZzilla]

выделит все попавшиеся удовлетворяющие item?

[psycho-coder]

Именно. Если включем MultiSelect

upd

А не. Находит последнее вхождение. Для первого нужно вырубать цкил

procedure TForm1.Edit1Change(Sender: TObject);
var
  i: Integer;
  Str: String;
begin
  for i := 0 to ListBox1.Count - 1 do
  begin
    Str := Copy(ListBox1.Items[i], 1, 3);
    if Edit1.Text = Str then
    begin
      ListBox1.Selected[i] := true;
      Break;
    end;
  end;
end;

[spalms]

всем большое спасибо всё получилось. Урааааааааааа