unit Unit16;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm16 }

  TForm16 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form16: TForm16;

implementation
uses Unit1, Unit17, Unit18;
{$R *.lfm}

procedure TForm16.Button1Click(Sender: TObject);
begin
  Form18.Show;
  Form16.hide;
end;

procedure TForm16.Button2Click(Sender: TObject);
begin
   If (edit1.text = '') or (edit2.text = '') or (edit3.text = '') then
       MessageDlg('Вы не ответили на вопрос!', mtWarning,[mbOK],0)
   else  i:=i+1;

   if i=1 then
   if ((edit1.text = 'протокол')Or (edit1.text = 'протокол доступа')) and
   (edit2.text = 'домен') and (edit3.text = 'имя страницы')
   then inc(Right)
   else inc(Wrong);

   if i=1 then begin
   Button2.Caption:='Далее';
   edit1.Enabled:=False;
   edit2.Enabled:=False;
   edit3.Enabled:=False;
   inc(i);
   end;

   if i=3 then begin
   Form17.Show;
   Form16.hide;
   i:= 0;
   end;
end;

end.