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

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Formmain: TFormmain;

implementation

uses ftest;

{$R *.dfm}

procedure TFormmain.Button1Click(Sender: TObject);

var error:Boolean;

begin

nomer:=0;

if edit1.Text='' then

begin messagedlg('Введите фамилию',mterror,[mbok],0);

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

if edit2.Text='' then

begin messagedlg('Введите имя',mterror,[mbok],0);

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

if ComboSex.ItemIndex<>0 then

if ComboSex.ItemIndex<>1 then

begin messagedlg('Введите пол',mterror,[mbok],0);

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

if ComboAge.ItemIndex<>0 then