Listbox Items auf eine Länge bringen

[xe0n]

hi

ich hab ein Prob.
und zwar hab ich ne listbox wo einträge drin stehen.

123456789
abcdefghi
ABCDEFGHI
usw...

die sollen jetzt alles auf eine bestimmte zeichenlänge gebracht werden.
Da ich selbst noch anfänger binn muss ich euch mal fragen .

Delphi-Quellcode:

var
a:string;
i:integer;
begin
i:=0;
for i := 0 to 4 do
a:=listbox1.Items[i].Text
SetLength(a,5);
Listbox1.Items[i].Add(a);

hier mein erbärmlicher versuch der scheiterte , ja ihr werdet zwar lachen aber jeder musst mal anfangen.

ich hoffe ihr koennt mir helfen

mfg Xe0n