unit keys;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, ExtCtrls, GostBase;

type
  TKeyForm = class(TForm)
    Panel2: TPanel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Panel1: TPanel;
    MaskEdit9: TMaskEdit;
    MaskEdit10: TMaskEdit;
    Panel3: TPanel;
    MaskEdit11: TMaskEdit;
    MaskEdit12: TMaskEdit;
    Panel4: TPanel;
    MaskEdit13: TMaskEdit;
    MaskEdit14: TMaskEdit;
    Panel5: TPanel;
    MaskEdit15: TMaskEdit;
    MaskEdit16: TMaskEdit;
    Panel6: TPanel;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    Panel7: TPanel;
    MaskEdit5: TMaskEdit;
    MaskEdit6: TMaskEdit;
    Panel8: TPanel;
    MaskEdit7: TMaskEdit;
    MaskEdit8: TMaskEdit;
    Button1: TButton;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure MaskEdit1Exit(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure MaskEdit3Exit(Sender: TObject);
    procedure MaskEdit4Exit(Sender: TObject);
    procedure MaskEdit5Exit(Sender: TObject);
    procedure MaskEdit6Exit(Sender: TObject);
    procedure MaskEdit7Exit(Sender: TObject);
    procedure MaskEdit8Exit(Sender: TObject);
    procedure MaskEdit9Exit(Sender: TObject);
    procedure MaskEdit10Exit(Sender: TObject);
    procedure MaskEdit11Exit(Sender: TObject);
    procedure MaskEdit12Exit(Sender: TObject);
    procedure MaskEdit13Exit(Sender: TObject);
    procedure MaskEdit14Exit(Sender: TObject);
    procedure MaskEdit15Exit(Sender: TObject);
    procedure MaskEdit16Exit(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KeyForm: TKeyForm;
  xKeyWord: tKey;

implementation

uses tabl, prg_gost;

{$R *.DFM}

procedure TKeyForm.Button1Click(Sender: TObject);
begin
 xKeyWord.Wds[0]:=StrToInt(Trim(MaskEdit1.Text));
 xKeyWord.Wds[1]:=StrToInt(Trim(MaskEdit2.Text));
 xKeyWord.Wds[2]:=StrToInt(Trim(MaskEdit3.Text));
 xKeyWord.Wds[3]:=StrToInt(Trim(MaskEdit4.Text));
 xKeyWord.Wds[4]:=StrToInt(Trim(MaskEdit5.Text));
 xKeyWord.Wds[5]:=StrToInt(Trim(MaskEdit6.Text));
 xKeyWord.Wds[6]:=StrToInt(Trim(MaskEdit7.Text));
 xKeyWord.Wds[7]:=StrToInt(Trim(MaskEdit8.Text));
 xKeyWord.Wds[8]:=StrToInt(Trim(MaskEdit9.Text));
 xKeyWord.Wds[9]:=StrToInt(Trim(MaskEdit10.Text));
 xKeyWord.Wds[10]:=StrToInt(Trim(MaskEdit11.Text));
 xKeyWord.Wds[11]:=StrToInt(Trim(MaskEdit12.Text));
 xKeyWord.Wds[12]:=StrToInt(Trim(MaskEdit13.Text));
 xKeyWord.Wds[13]:=StrToInt(Trim(MaskEdit14.Text));
 xKeyWord.Wds[14]:=StrToInt(Trim(MaskEdit15.Text));
 xKeyWord.Wds[15]:=StrToInt(Trim(MaskEdit16.Text));
 KeyForm.Close;
end;

procedure TKeyForm.MaskEdit1Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit1.Text))>65535 then MaskEdit1.Text := '65535';
end;

procedure TKeyForm.MaskEdit2Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit2.Text))>65535 then MaskEdit2.Text := '65535';
end;

procedure TKeyForm.MaskEdit3Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit3.Text))>65535 then MaskEdit3.Text := '65535';
end;

procedure TKeyForm.MaskEdit4Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit4.Text))>65535 then MaskEdit4.Text := '65535';
end;

procedure TKeyForm.MaskEdit5Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit5.Text))>65535 then MaskEdit5.Text := '65535';
end;

procedure TKeyForm.MaskEdit6Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit6.Text))>65535 then MaskEdit6.Text := '65535';
end;

procedure TKeyForm.MaskEdit7Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit7.Text))>65535 then MaskEdit7.Text := '65535';
end;

procedure TKeyForm.MaskEdit8Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit8.Text))>65535 then MaskEdit8.Text := '65535';
end;

procedure TKeyForm.MaskEdit9Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit9.Text))>65535 then MaskEdit9.Text := '65535';
end;

procedure TKeyForm.MaskEdit10Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit10.Text))>65535 then MaskEdit10.Text := '65535';
end;

procedure TKeyForm.MaskEdit11Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit11.Text))>65535 then MaskEdit11.Text := '65535';
end;

procedure TKeyForm.MaskEdit12Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit12.Text))>65535 then MaskEdit12.Text := '65535';
end;

procedure TKeyForm.MaskEdit13Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit13.Text))>65535 then MaskEdit13.Text := '65535';
end;

procedure TKeyForm.MaskEdit14Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit14.Text))>65535 then MaskEdit14.Text := '65535';
end;

procedure TKeyForm.MaskEdit15Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit15.Text))>65535 then MaskEdit15.Text := '65535';
end;

procedure TKeyForm.MaskEdit16Exit(Sender: TObject);
begin
    If StrToInt(Trim(MaskEdit16.Text))>65535 then MaskEdit16.Text := '65535';
end;

procedure TKeyForm.FormActivate(Sender: TObject);
begin
 xKeyWord.Wds[0]:=StrToInt(Trim(MaskEdit1.Text));
 xKeyWord.Wds[1]:=StrToInt(Trim(MaskEdit2.Text));
 xKeyWord.Wds[2]:=StrToInt(Trim(MaskEdit3.Text));
 xKeyWord.Wds[3]:=StrToInt(Trim(MaskEdit4.Text));
 xKeyWord.Wds[4]:=StrToInt(Trim(MaskEdit5.Text));
 xKeyWord.Wds[5]:=StrToInt(Trim(MaskEdit6.Text));
 xKeyWord.Wds[6]:=StrToInt(Trim(MaskEdit7.Text));
 xKeyWord.Wds[7]:=StrToInt(Trim(MaskEdit8.Text));
 xKeyWord.Wds[8]:=StrToInt(Trim(MaskEdit9.Text));
 xKeyWord.Wds[9]:=StrToInt(Trim(MaskEdit10.Text));
 xKeyWord.Wds[10]:=StrToInt(Trim(MaskEdit11.Text));
 xKeyWord.Wds[11]:=StrToInt(Trim(MaskEdit12.Text));
 xKeyWord.Wds[12]:=StrToInt(Trim(MaskEdit13.Text));
 xKeyWord.Wds[13]:=StrToInt(Trim(MaskEdit14.Text));
 xKeyWord.Wds[14]:=StrToInt(Trim(MaskEdit15.Text));
 xKeyWord.Wds[15]:=StrToInt(Trim(MaskEdit16.Text));
end;

procedure TKeyForm.FormResize(Sender: TObject);
begin
        Width := 495;
        Height := 140;
        Top := BaseForm.Top+150;
        Left := BaseForm.Left+70;
end;

end.