CheckListBox1.ItemIndex ist das (erste) selektierte/markierte Item
und überleg mal, kann eine Variable (hier ein Integer) 2 unterschiedliche Werte zugleich haben?
if (i = 0) and (i = 2) then ...
probier mal die Eigenschaft .Checked aus
Ein Therapeut entspricht 1024 Gigapeut.