Dein erster Fehler ist, daß du in der For-Schleife kein Begin..End setzt. Dadurch wird bei jedem Schleifendurchlauf nur der erste Befehl ausgeführt. a wird also immer wieder neu zugewiesen, ohne daß etwas damit passiert. Erst das letzte Element wird dann gekürzt.
Dein zweiter Fehler ist, daß du das gekürzte Element der ListBox neu (also am Ende) hinzufügst, anstatt das alte zu ersetzen.
Das i := 0 vor der Schleife brauchst du auch nicht, das wird ja in der Schleife schon gesetzt.
Und auf die Text-Eigenschaft der Items brauchst du auch nicht zugreifen, Items[i] reicht
Und den nötigen Code hat dir tomsel schon gegeben.
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;