Ошибка Label declared and referenced, but not set:' '

tane

Здравствуйте)Что делать при такой ошибке?
procedure  TU_Test.Button1Click(Sender:   TObject); 
Label   fin; 
begin
if (RadioGroup1.Itemlndex=-1) then 
begin 
ShowMes sage( 'Поверніться до питання №1' ) ; U_test.PageControl1.ActivePage:=U_test.TabSheet1; 
goto  fin 
end;
if (RadioGroup2.Itemlndex=-1) then 
begin 
ShowMessage('Поверніться до питання №2'); U_test.PageControll.ActivePage:=U__test.TabSheet2;
goto  fin  
end;
if (RadioGroup3.Itemlndex=-1) then 
begin 
ShowMessage('Поверніться до питання №3'); U_test.PageControll.ActivePage:=U_test.TabSheet3; 
goto   fin  
end;
if (RadioGroup4.Itemlndex=-1) then 
begin 
ShowMessage('Поверніться до питання №4'); U_test.PageControll.ActivePage:=U_test.TabSheet4; 
goto  fin 
end;
if  (RadioGroup5.Itemlndex=-1) then  
begin 
ShowMessage(‘Поверніться до питання №5'); U_test.PageControll.ActivePage:=U_test.TabSheet5;
goto  fin 
end;
ball : =otv [ 1 , RadioGroup1 . Itemlndex]+otv[2,RadioGroup2.ItemIndex] +
otv[3,RadioGroup3.Itemlndex]+otv[4,RadioGroup4.Itemlndex]+otv[5,RadioGroup5.Itemlndex];
 
Close;
fin:
end;
1 ответ

tane

procedure TU_Test.Button1Click(Sender:   TObject); 
begin
  if RadioGroup1.Itemlndex = -1 then 
  begin 
    ShowMessage('Поверніться до питання №1' );
    U_test.PageControl1.ActivePage := U_test.TabSheet1; 
  end
  else if RadioGroup2.Itemlndex = -1 then 
  begin 
    ShowMessage('Поверніться до питання №2'); 
    U_test.PageControll.ActivePage := U__test.TabSheet2;
  end
  else if RadioGroup3.Itemlndex = -1 then 
  begin 
    ShowMessage('Поверніться до питання №3'); 
    U_test.PageControll.ActivePage := U_test.TabSheet3; 
  end
  else if RadioGroup4.Itemlndex = -1 then 
  begin 
    ShowMessage('Поверніться до питання №4'); 
    U_test.PageControll.ActivePage := U_test.TabSheet4; 
  end
  else if RadioGroup5.Itemlndex = -1 then  
  begin 
    ShowMessage('Поверніться до питання №5'); 
    U_test.PageControll.ActivePage := U_test.TabSheet5;
  end
  else
  begin
    ball := otv[1, RadioGroup1.Itemlndex] + otv[2, RadioGroup2.ItemIndex] +
            otv[3, RadioGroup3.Itemlndex] + otv[4, RadioGroup4.Itemlndex] + otv[5, RadioGroup5.Itemlndex];
    Close;
  end:
end;