Реферат: Создание теста в Delphi

else

begin

case nomer-1 of

3..186:pballov;

end;

clear;

{Вопросы}

case nomer of

1:begin

FormTest.memo1.Lines.Add('1. Я хорошо понял инструкцию, которую только что прочитал:');

FormTest.RadioGroup1.Items.Add('а) Да;');

FormTest.RadioGroup1.Items.Add('в) не уверен;');

FormTest.RadioGroup1.Items.Add('с) нет.');

end;

2:begin

…

188:begin

whoru;

end;

end;

if nomer<189 then nomer:=nomer+1;

end;

end;

end;

procedure TFormTest.buttonnextClick(Sender: TObject);

begin

if nomer=0 then

begin

nomer:=nomer+1;