unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    Procedure ShutOff(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}
uses unit1;

procedure TForm2.Edit1Change(Sender: TObject);
begin
     try
        Msg := Abs(StrToInt(Edit1.Text)) mod 256;
     Except
        On A:EConvertError Do Msg := 0;
     End;
     Label2.Caption := SMsg;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
 //    Label2.Caption := SMsg;
       Edit1Change(Sender);
     Label1.Caption := 'Sending To: ' + AState[A];
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
     Send;
end;

Procedure  TForm2.ShutOff(sender : TObject);
Begin
        Msg := 0;
        Send; Send;
End;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        form1.Timer1.Enabled := True;
end;

end.