for i:=0 to listbox1.Items.Count-1 dolistbox1.Items.Strings[i]:=inttostr(i+1)+'. '+ listbox1.Items.Strings[i];