[M.A.D.M.A.N.]

Код:

for i:=0 to (Length(data)-1) do

Нет толку работать со строками — работайте с массивами.

В вашем случае правильно должно быть так:

Код:

for i:=1 to Length(data) do