Сравнение ini файлов

[AdDa]

var i:integer;
begin
k := 1;
ini := TIniFile.Create('C:\AdDa\Рабочий стол\Пз\oLVL1.ini');
try
ini.ReadSection('ypoBeHb1 '+IntToStr(k), Checklistbox2.Items);
for i := 0 to Checklistbox2.Items.Count - 1 do
begin
CheckListbox2.Checked[i] := ini.ReadBool('ypoBeHb1 '+IntToStr(k), Checklistbox2.Items[i], False);
end
   finally
     ini.Free;
   end;
   begin
k := 1;
ini := TIniFile.Create('C:\AdDa\Рабочий стол\Пз\учащиеся.ini');
try
ini.ReadSection('ypoBeHb1 '+IntToStr(k), Checklistbox3.Items);
for i := 0 to Checklistbox3.Items.Count - 1 do
begin
CheckListbox3.Checked[i] := ini.ReadBool('ypoBeHb1 '+IntToStr(k), Checklistbox3.Items[i], False);
end
   finally
     ini.Free;
   end;      end;

Как мне сравнить итемы CheckListbox2 и CheckListbox3 , if в 1-ых итемах поставлены галочки, то ball:=ball+1 else проверяем 2-ой итем ?