вот весь код кнопки
procedure TForm1.Button1Click(Sender: TObject);
begin
if
radioButton3.Checked
then
Begin
label1.Caption:='Верно';
button1.Enabled:=False;
button2.Visible:=true;
inc(KolGood); //переменная из Юнита
End
else
label1.Caption:=' Ошибка';
button1.Enabled:=False;
button2.Visible:=true;
inc(KolOshibok);
end;
|