Вопрос по Делфи

[Степа Верхозин]

Вопрос вот какой:
Значит в поле Edit1 надо ввести число от 4 до 9, в Label рядом нужно вывести квадрат от числа,введенного в Edit. Вот мой программный код, но он чего то не работает, число в Лэйбл неправильное выводится:
procedure TForm1.Edit1Change(Sender: TObject);
var
a:String;
b,c:Integer;
begin
b:=0;
//d:=0;
a:=Edit1.Text;
begin
if StrToInt(a)<5 then showmessage ('Insert a number from 5 to 9') else
if StrToInt(a)>9 then showmessage ('Insert a number from 5 to 9') else
if b=5 then c:=sqr(b);//else



Label1.Caption:=IntToStr(c);
end;

Заранее Спасибо!

[Sazary]

Такое подойдет?

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
a:Integer;
begin
a := Key-48;
if (a>=4) and (a<=9) then
 Label1.Caption := IntToStr(sqr(a))
else
 Label1.Caption := 'Error!';
Edit1.Clear;

end;

[Степа Верхозин]

Да,спасибо большое А не могли бы Вы еще объяснить что значит "a := Key-48;"???

[Sazary]

что значит "a := Key-48;"???

Key - код нажатой клавиши. Коды цифр находятся в диапазоне 48-57. Поэтому, чтобы получить саму цифру, нужно отнять от ее кода 48.

Естественно, такой подход годится только для данной задачи (когда вводится одна цифра).

[Степа Верхозин]

Спасибо еще раз, Вы мне очень помогли