[Alegun]

Оффтоп:

Сообщение от Kailon

...P.S.: это вообще для чего?

Видимо, для задержки показа формы, нерационально поскольку на слабой машинке будет работать, а на мощном агрегате пролетит за доли секунды, вдобавок, вероятно намертво должно вешать приложение, другими средствами задержка делается

Ошибка наверное здесь

Код:

...
procedure TForm1.Button1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=strtoint(s6) then
c:=c+1;
...

нефакт, что в строковой переменной s6 лежит integer, могут быть и буквы