[devochka]

Код:

procedure TForm13.Button1Click(Sender: TObject);
begin
 if
        radioButton1.Checked

then
     Begin
        label1.Caption:='Верно';
        button1.Enabled:=False;
         button2.Visible:=true;
        inc(KolGood);  //переменная из Юнита

End

else
         begin
         label1.Caption:=' Ошибка';
           button1.Enabled:=False;
            button2.Visible:=true;
            inc(KolOshibok);
        end;
end;

Admin: Пользуемся тегами для оформления кода! При рецедиве последуют санкции.

теперь вообще не чего не ставит(((((