Also ich habe mal deinen code bei mir getestet in d7, und bei mir hat alles geklappt.
Hast du noch was bei einfachem klick? Vielleicht behindert das das ausführen, oder das sonst irgendeine andere aktion bei irgend einer aktion auf er listbox etwas ausführt, wodurch dein code übergangen wird (z.b. es nie zu einem doppelklick sondern immer nur zu einem einfachen klick kommt.) Ich weis nicht, ob du denen code schon mal in den Teil geschrieben hast, der bei einfachem klick ausgelöst wird also unter:
Code:
procedure TForm1.lbClick(Sender: TObject);
Aber dann könnteste testen, ob das nur bei doppelklick nicht klappt, ob die klick-aktion insgesammt übergangen wird.