Zitat von
BullsEye:
IF ListBox1.ItemIndex <= -1 THEN BEGIN
Diese Überprüfung ist falsch. Der
ItemIndex ist auch "-1", wenn bei einer gefüllten ListBox kein Eintrag selektiert ist. Und kleiner als "-1" kann der
ItemIndex sowieso nicht werden. Besser wäre hier
if ListBox1.Items.Count > 0 then // bzw. = 0
oder kürzer müsste auch das gehen:
if ListBox1.Count > 0 then // bzw. = 0
Grüße