Da ich den Code geschrieben habe, weiß ich, das es funktioniert
IMHO kann das bei Dir nicht funktionieren, weil Du nicht jede Zeile mit AddObject hinzugefügt hast?!
Und:
TAppHandle(LbxApplications.Items.Objects[Index]).Handle
Du hast das Objects vergessen