Проверка ошибок

[ac1d_buRn]

При нажатии кнопки "Проверить" прога проверяет только первый тест, а на втором всегда выдаёт "Error". Что посоветуете? Заранее благодарен.

procedure TForm1.Button1Click(Sender: TObject);
begin

  if radiobutton1.Checked then
  begin
    label1.caption:='Verno;
    button1.Enabled:=False;
  end
  else label1.Caption:='Error';

    if radiobutton2.Checked then

    begin
      label4.caption:='Verno';
      button1.Enabled:=False;
    end
    else label4.Caption:='Error'

end;
end.

[Пепел Феникса]

а у вас radioButton'ы обв щелкнуты
может вам CheckBox нужен?

[ac1d_buRn]

radioButton'ы щёлкнуты обе (как видно это на скрине)

Ошибку исправил, беда была в строке if radiobutton2.Checked then
Спасибо!