Radiogroup1.Items.Add не актуальный параметр

procedure TTest.Button1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=-1 then
begin
  ShowMessage('Нұсқаны тандаңыз');
end
else
if radiogroup1.ItemIndex=3 then
begin
res:=res+1;
end;
s:=s+1;
if s=1 then
begin
radiogroup1.Caption:='С++ тілі қай тілден мұрагерленген?';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='Раsca1';
Radiogroup1.Items.Add:='C';
Radiogroup1.Items.Add:='Java';
Radiogroup1.Items.Add:='Delphi';
if radiogroup1.ItemIndex=1 then
begin
res:=res+1;
end;
end;
if s=2 then
begin
radiogroup1.Caption:='C++ тілінде солға жылжыту қай белгімен белгіленеді?';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='<<';
Radiogroup1.Items.Add:='>>';
Radiogroup1.Items.Add:='<=';
Radiogroup1.Items.Add:='=<';
if radiogroup1.ItemIndex=0 then
begin
res:=res+1;
end;
end;
if s=3 then
begin
radiogroup1.Caption:='C++ тілінде тең емес қай белгімен белгіленеді?';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='=/=';
Radiogroup1.Items.Add:='!=0';
Radiogroup1.Items.Add:='!=';
Radiogroup1.Items.Add:='<>';
if radiogroup1.ItemIndex=2 then
begin
res:=res+1;
end;
end;
if s=4 then
begin
radiogroup1.Caption:='С++ тілінде циклды операторлар';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='for, with, goto';
Radiogroup1.Items.Add:='while, case, for';
Radiogroup1.Items.Add:='if, break, show';
Radiogroup1.Items.Add:='while, do while, for';
if radiogroup1.ItemIndex=3 then
begin
res:=res+1;
end;
end;
if s=5 then
begin
radiogroup1.Caption:='С++ тілінде қалдықты меншіктеу қай белгімен белгіленеді?';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='sum';
Radiogroup1.Items.Add:='%=';
Radiogroup1.Items.Add:='float';
Radiogroup1.Items.Add:='%%';
if radiogroup1.ItemIndex=1 then
begin
res:=res+1;
end;
end;
if s=6 then
begin
radiogroup1.Caption:='C++ тілінде және белгісі қай белгімен белгіленеді?';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='and';
Radiogroup1.Items.Add:='or';
Radiogroup1.Items.Add:='&@';
Radiogroup1.Items.Add:='&&';
if radiogroup1.ItemIndex=3 then
begin
res:=res+1;
end;
end;
if s=7 then
begin
radiogroup1.Caption:='Объект дегеніміз';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='классқа көрсеткішті қамтитын айнымалы';
Radiogroup1.Items.Add:='класстың данасы';
Radiogroup1.Items.Add:='материалды зат';
Radiogroup1.Items.Add:='Деректер мен өңдеу әдістерін қамтитын сынып';
if radiogroup1.ItemIndex=1 then
begin
res:=res+1;
end;
end;
if s=8 then
begin
radiogroup1.Caption:='Деструктор дегеніміз';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='объектті бұзатын әдіс';
Radiogroup1.Items.Add:='объектті жоятын әдіс';
Radiogroup1.Items.Add:='объект орналасқан жадты босататын әдіс';
Radiogroup1.Items.Add:='объект орналасқан жадты босататын жүйелік функция';
if radiogroup1.ItemIndex=2 then
begin
res:=res+1;
end;
end;
if s=9 then
begin
radiogroup1.Caption:='Объектіні дұрыс хабарландыруын көрсетіңіз';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='class MoreDetails:: Details;';
Radiogroup1.Items.Add:='class MoreDetails: public class Details;';
Radiogroup1.Items.Add:='class MoreDetails: public Details;';
Radiogroup1.Items.Add:='class MoreDetails: class(Details);';
if radiogroup1.ItemIndex=2 then
begin
res:=res+1;
end;
end;
if s=10 then
begin
radiogroup1.Caption:='Сізге ұнадыма?';
radiogroup1.Items.Clear;
Radiogroup1.Items.Add:='йя';
Radiogroup1.Items.Add:='жоқ';
begin
res:=res+1;
end;
if s>=11 then
begin
 
end;
end;
end;
 
procedure TTest.FormCreate(Sender: TObject);
begin
res:=0;
end;