[X-rem]

Aristarh Dark , Код конечно рабочий , только мне не надо чтобы он в середине искал. Мне нужно только по первым буквам. И если можно то лучше напиши код ближе к этому :

Код:

//Edit1.OnChange
var
NeedString, str: String;
All, at, srtlen, nslen : Integer;
begin
  NeedString:=Form1.Edit1.Text;
  All := Form1.ListBox1.Items.Count;
  At := -1;
    repeat
      at:=at=1;
      str:=Form1.ListBox1.Items[at];
      strlen:=Length(str);
      nslen:=Length(NeedString);
      if strlen<=nslen then begin
{Ошибка в этой строке} if Copy(str,0,nslen)=NeedString then begin
          {вырезанный кусок}
          end;        
        end;
    until at=all-1;
end;