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

BFinish: TButton;

procedure buttonnextClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure buttonPreviosClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure BFinishClick(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure FormDblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormTest: TFormTest;

nomer:Byte; {номер вопроса}

a,b,c,d,e,f,g,h,i,l,m,n,o,q1,q2,q3,q4:byte;{Факторы}

aa,bb,cc,dd,ee,ff,gg,hh,ii,ll,mm,nn,oo,qq1,qq2,qq34:byte;{Стены}

implementation

uses fmain;

{$R *.dfm}

{Очистка формы}

procedure clear;

begin

FormTest.Memo1.Lines.Clear;

FormTest.RadioGroup1.Items.Clear;

end;

procedure pballov;