А можно задачу получить:
С исходными 8мью парами что надо сделать?
Я так понял доллары пририсовать?
Если я правльно понял задачу то вот так
Код:
for i:=0 to 7 do Ediе2.text:=StuffString(Edit2.text, i*3,1, '$')
Улыбнуло кол-во вашего кода, и моего )))))