пишу тест

[lg12]

var
  Form1: TForm1;
  k:integer;
  n:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
k:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=k+1;
case k of
1:label1.caption:='2+2=4?';
2:label1.caption:='2 в квадрате 5?';
3:label1.caption:='корень из 81 это 2?';
4:label1.caption:='5*5=25?';
5:Label1.Caption:='6*2=12?';
end;
case k of //первый вопрос
1:
begin
case radioGroup1.ItemIndex of
0:
n:=n+1;
1:label1.Caption:='не верно';
end;
case k of //второй вопрос
2:
begin
case radioGroup1.ItemIndex of
1:
n:=n+1;
0:label1.Caption:='не верно';
end;
case k of //тредтий вопрос
3:
begin
case radioGroup1.ItemIndex of
1:
n:=n+1;
0:label1.Caption:='не верно';
end;
case k of //четвертый вопрос
4:
begin
case radioGroup1.ItemIndex of
0:
n:=n+1;
1:label1.Caption:='не верно';
end;
case k of //пятый вопрос
1:
begin
case radioGroup1.ItemIndex of
0:
n:=n+1;
1:label1.Caption:='не верно';
end;
label1.Caption:='Результат'+inttostr(n);
end;
end.

подскажите где ошибка

[Stilet]

case radioGroup1.ItemIndex of
0:n:=n+1;
else 
 label1.Caption:='не верно';
end;

И так в остальных.

P.S. я бы на твоем месте все это выкинул и написал по другому:

Test=record
 Вопрос:String;
 ВерныйОтвет:Integer;
end;

потом массив таких записей. Далее
if radioGroup1.ItemIndex=test[i].ВерныйОтвет then верно

[lg12]

я поменял
var
Form1: TForm1;
k:integer;
n:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
k:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=k+1;
case k of
1:label1.caption:='2+2=4?';
2:label1.caption:='2 в квадрате 5?';
3:label1.caption:='корень из 81 это 2?';
4:label1.caption:='5*5=25?';
5:Label1.Caption:='6*2=12?';
end;
case k of //первый вопрос
1:
begin
case radioGroup1.ItemIndex of
0:n:=n+1;
else
label1.Caption:='не верно';
end;
case k of //второй вопрос
2:
begin
case radioGroup1.ItemIndex of
1:n:=n+1;
else
label1.Caption:='не верно';
end;
case k of //тредтий вопрос
3:
begin
case radioGroup1.ItemIndex of
1:n:=n+1;
else
label1.Caption:='не верно';
end;
case k of //четвертый вопрос
4:
begin
case radioGroup1.ItemIndex of
0:n:=n+1;
else
label1.Caption:='не верно';
end;
case k of //пятый вопрос
1:
begin
case radioGroup1.ItemIndex of
0:n:=n+1;
else
label1.Caption:='не верно';
end;
label1.Caption:='Результат'+inttost r(n);

end;
end.
подчеркивает последнюю строчку end. И не работает

[ОДИНОЧЕСТВО В СЕТИ]

пробуйте

  n,k:Integer;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
 begin
k:=k+1;
case k of
1:label1.caption:='2+2=4?';
2:label1.caption:='2 в квадрате 5?';
3:label1.caption:='корень из 81 это 2?';
4:label1.caption:='5*5=25?';
5:Label1.Caption:='6*2=12?';
end;
case k of //первый вопрос
1:
begin
  case radioGroup1.ItemIndex of
0:n:=n+1;
else
label1.Caption:='не верно';
  end;
end;
end;

case k of //второй вопрос
2:
begin
case radioGroup1.ItemIndex of
1:n:=n+1;
else
label1.Caption:='не верно';
end; end; end;

case k of //тредтий вопрос
3:
begin
case radioGroup1.ItemIndex of
1:n:=n+1;
else
label1.Caption:='не верно';
end; end;end;
case k of //четвертый вопрос
4:
begin
case radioGroup1.ItemIndex of
0:n:=n+1;
else
label1.Caption:='не верно';
end; end; end;
case k of //пятый вопрос
1:
begin
case radioGroup1.ItemIndex of
0:n:=n+1;
else
label1.Caption:='не верно';
end; end;end;

label1.Caption:='Результат'+inttostr(n);

end;
end.

только вопросов не будет