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

end;

if nomer=1 then

begin

RadioGroup1.Visible:=true;

label1.Visible:=false;

label3.Visible:=true;

end

else

if nomer=188 then

begin

radiogroup1.Visible:=false;

memo1.ScrollBars:=ssVertical;

buttonnext.Caption:='Завершить';

buttonnext.Visible:=false;

BFinish.Visible:=true;

Label1.Visible:=false;

Label3.Visible:=false;

end;

addtest;

{if n>0 then

begin

case n of

3:pballov;

end;

end;}

end;

procedure TFormTest.FormCreate(Sender: TObject);

begin

nomer:=0;

end;

procedure TFormTest.buttonPreviosClick(Sender: TObject);

begin

nomer:=nomer-1;

addtest;