[X-rem]

Народ нужна срочно помощь. Нужно реализовать поиск.
На форме есть один ListBox и один Edit.
В ListBox'e содержаться имена программ.
А в Edit нужно ввести название. Только надо чтобы можно было вводить не полностью.

Например в ListBox'e есть:
{
Borland Delphi 7
Acdsee
Visual Basic
}
Я набираю в Edit1 "Borland" и должен высветится "Borland Delphi 7"
т.е (ListBox1.ItemIndex:=at)
Сама функция поиска реализована но только никак не могу сделать чтобы не полностью можно было вводить.

Код:

 
//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;

Зарание спасибо.