unit Unit1;

interface

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

type
TSpaska = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
glawiSI : SmallInt;
glawiWORD : WORD;
{ Public declarations }
end;

var
Spaska: TSpaska;

implementation

{$R *.dfm}

procedure TSpaska.Button1Click(Sender: TObject);
Var
otrqzani : Integer;
begin
otrqzani := StrToInt(Edit1.Text);
If otrqzani <= glawiSI Then
glawiSI := ( glawiSI - otrqzani ) + ( Otrqzani * 2 )
else ShowMessage('Не можете да отрежете повече глави отколкотo има ламята');
Edit2.Text := IntToStr(glawiSI);
end;

procedure TSpaska.FormCreate(Sender: TObject);
begin
glawiSI := 1;
glawiWORD := 1;
label5.Caption := 'Smallint -32768..32767 signed 16-bit' + #13#10 +
'Word 0..65535 unsigned 16-bit';

end;

procedure TSpaska.Button2Click(Sender: TObject);
Var
otrqzani : Integer;
begin
otrqzani := StrToInt(Edit3.Text);
If otrqzani <= glawiWORD Then
glawiWORD := ( glawiWORD - otrqzani ) + ( Otrqzani * 2 )
else ShowMessage('Не можете да отрежете повече глави отколкотo има ламята');
Edit4.Text := IntToStr(glawiWORD);
end;
end.