Код:
a:=Copy(ListBox2.Items.Strings[d],3,1);
Здесь происходит копирование значения из строчки в ListBox2 с 3 символа в переменную "а". Вот тут и проблемма так как при "123.1" уже надо
Код:
a:=Copy(ListBox2.Items.Strings[d],4,1);
Можно, например проверять "d"
Код:
if d<99 then a:=Copy(ListBox2.Items.Strings[d],3,1); if d>99 then a:=Copy(ListBox2.Items.Strings[d],4,1);