Если выбрано не верно, то вывести ошибку, если верно оставить (Тест)

procedure TForm1.Button1Click(Sender: TObject);
 
var buf:string;
i:integer;
 begin
 if button1.caption='çàâåðøèòü' then close;
 if radiobutton1.checked then verno:=  verno+radiobutton1.TAg;
  if radiobutton2.checked then verno:=  verno+radiobutton2.TAg;
   if radiobutton3.checked then verno:=  verno+radiobutton3.TAg;
    if radiobutton4.checked then verno:=  verno+radiobutton4.TAg;
   if not sledvopros then
   begin
   button1.Visible:=fALSE;
   BUTTON2.Visible:=TRUE;
   radiobutton1.visible:=false;
   radiobutton2.visible:=false;
   radiobutton3.visible:=false;
   radiobutton4.visible:=false;
   label2.visible:=false;
   label3.visible:=false;
   label4.visible:=false;
    label5.visible:=false;
   buf:=' '+#13+''+inttostr(verno)+' '+ inttostr(kolvo)+'.';
   i:=1;
   while (verno<ocenka[i])and (i<6) do inc(i);
   buf:=buf+koment[i];
   label1.autosize:=true;
   label1.caption:=buf;
   end;
end;