[serge((]

Спасибо.

if d<10 then
a:=Copy(ListBox2.Items.Strings[d],3,1);
if d>9 then if d<100 then
a:=Copy(ListBox2.Items.Strings[d],4,1);
if d>99 then
a:=Copy(ListBox2.Items.Strings[d],5,1);

ну тогда я написал в таком стиле. Вроде как работает)