Придумать "умный" фильтр

procedure TForm2.FormShow(Sender: TObject);
begin
list.Clear;
list.Text := CheckListBox1.Items.Text;
end;
 
procedure TForm2.Edit1Change(Sender: TObject);
var
i:Integer;
s:TStringList; // list TStringList глобальная
begin
 
if Edit1.Text = '' then begin
    CheckListBox1.Items.Text := list.Text;
    exit;
    end;
 
s := TstringList.Create;
CheckListBox1.Items.Clear;
 
for i := 0 to list.Count-1 do begin
    if Pos(AnsiLowerCase(Edit1.Text),AnsiLowerCase(list[i])) > 0
    then s.Add(list[i]);
    end;
CheckListBox1.Items.Text := s.Text;
s.Free;
 
end;

procedure TForm2.FormShow(Sender: TObject);
var
i : Integer;
begin
list.Clear;
list.Text := CheckListBox1.Items.Text;
for i := 0 to CheckListBox1.Items.Count-1 do
a[i] := CheckListBox1.Checked[i];
end;

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
Var i: Integer;
begin
 i := SourceCheckListBox.Items.IndexOf(CheckListBox1.Items.Strings[CheckListBox1.ItemIndex]);
 SourceCheckListBox.Checked[i] := CheckListBox1.Checked[CheckListBox1.ItemIndex];
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var i,j: Integer;
begin
 if Edit1.Text = '' then Exit;
 CheckListBox1.Clear;
 for i := 0 to SourceCheckListBox.Items.Count - 1
 do begin
    if ContainsText(SourceCheckListBox.Items.Strings[i], Edit1.Text)
    then begin
         j := CheckListBox1.Items.Add(SourceCheckListBox.Items.Strings[i]);
         CheckListBox1.Checked[j] := SourceCheckListBox.Checked[i];
         end;
    end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 SourceCheckListBox := TCheckListBox.Create(Form1);
 SourceCheckListBox.Parent := Form1;
 SourceCheckListBox.Hide;
 SourceCheckListBox.Items.Assign(CheckListBox1.Items);
end;