[delpi12]

помогите сделать поиск в лисбох

у меня код такой

Код:

procedure TForm1.Edit3Change(Sender: TObject);
var i,k: Integer;
    s: array of String;
begin
  SetLength(s,listbox1.Items.Count);
  if edit1.text <> '' then begin
    k:=-1;
    for i:=0 to listbox1.Items.Count-1 do
      if Pos(edit1.text,listbox1.Items.Strings[i])>0 then begin
        Inc(k);
        s[k]:=listbox1.Items.Strings[i];
      end;
    if k>=0 then begin
      listbox1.Clear;
      for i:=0 to k do listbox1.Items.Add(s[i]);
    end ;
   if edit3.Text='' then ...................................
  end  ;
 
end;

Админ: 3-х дневный бан за неумение оформлять код.