тут 1 на 0 поменяй
Код:
for i:=0 to Radiobutton.recordcount-1 do
Да и во вообще присмотрелся к коду, что- то тут не то совсем...
RecordCount - это св- во DataSet, причем тут RadioButton?
Да и еще первый if ты гоняешь в каком- то стремном цикле, второй if...else..end у тебя после цикла подвешен и насколько я понял один end; в конце лишний