На формі розмістимо компоненти: Edit, Lebal і Button.
У полі Edit ми будемо заносити число і програма проаналізувавши буде давати відповідь за коштами Label. При значенні вхідному в діапазон -128 .. -1 результат буде дорівнює -1, 0 - 0, 1 .. 127 - 1 і якщо число не є типом ShortInt результат буде дорівнювати десяти. Для цього обчислення запишемо такий обробник кнопки.
procedure TForm1.Button1Click (Sender: TObject);
var
I: Integer;
Rez: Shortint;
begin
I: = StrToInt (Edit1.text);
case I of
-128 .. -1: Rez: = -1;
1 .. 127: Rez: = 1;
0: Rez: = 0;
else Rez: = 10;
end;
Label1.Caption: = IntToStr (Rez);
end;