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

if ComboAge.ItemIndex<>2 then

begin messagedlg('Введите возраст',mterror,[mbok],0);

error:=true; end else error:=false;

if error=false then begin

Formmain.hide;

formtest.Show;

end;

end;

procedure TFormmain.Button2Click(Sender: TObject);

begin

close;

end;

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

begin

if messagedlg('Вы действительно хотите выйти?',mtcustom,[mbyes,mbno],0)=mrno then

canclose:=false;

end;

end.

unit ftest;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Spin, ComCtrls;

type

TFormTest = class(TForm)

buttonnext: TButton;

Memo1: TMemo;

RadioGroup1: TRadioGroup;

Label1: TLabel;