procedure TMainForm.CheckListBox1ClickCheck(Sender: TObject);
var
  objName:AnsiString;
  i:integer;
begin
  for i := 0 to CheckListBox1.Items.Count-1 do
  begin
    objName := AnsiString( CheckListBox1.Items[i] );
    // if selected and not already inserted (then add object)
    if (CheckListBox1.Checked[i]) and (not m_objectsFinder.classifierExists(PAnsiChar(objName))) then
      m_objectsFinder.addClassifier(PAnsiChar(objName), IEVisionLib.createCascadeClassifier(PAnsiChar(objName)))
    // if not selected but already inserted (then remove object)
    else if (not CheckListBox1.Checked[i]) and (m_objectsFinder.classifierExists(PAnsiChar(objName))) then
      m_objectsFinder.removeClassifier(PAnsiChar(objName));
  end;
end;

m_objectsFinder := IEVisionLib().createObjectsFinder();

  for i := 0 to High(CLASSIFIERS) do
    m_objectsFinder.addClassifier(PAnsiChar(CLASSIFIERS[i]), IEVisionLib.createCascadeClassifier(PAnsiChar(CLASSIFIERS[i])));