OnClick вопрос по этому действию

procedure TForm1.Button1Click(Sender: TObject);
const
  e=1;
Var Baze:string;
    n:byte;
procedure Fact;
begin
 n:=n+1;
end;
begin
 Fact;
Baze:=Edit1.Text+Edit1.Text+Edit1.Text;
Label4.Caption:=' n '+IntToStr(n);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
end.

Try
//процедура которую нужно выполнить но там может быть ошибка.
//например пользователь должен ввести цифры а ввел буквы
finally
//здесь выполняется процедура не зависимо от того была ошибка после "Try" или небыло

try
//процедура которую нужно выполнить но там может быть ошибка.
//например пользователь должен ввести цифры а ввел буквы
except
//эта процедура выполняется только если после try была ошибка

{$Q+}
a=500000, b=600000
Всяко перепробовали 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
{$Q+}
 
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  a,b: integer;
  c,d,rez: real;
begin
  try
  a:=strtoint(edit1.text);
  b:=strtoint(edit2.text);
  c:=strtofloat(edit1.text);
  d:=strtofloat(edit2.text);
  rez:=c*d;
  edit3.Text:=inttostr(a);
  edit4.Text:=inttostr(b);
  edit5.Text:=floattostr(c);
  edit6.Text:=floattostr(d);
  edit7.Text:=inttostr(a*b);
  edit8.Text:=floattostr(rez);
  except
    on EConvertError do showmessage ('Ââåäåíî íå ÷èñëî!');
 
    on EIntOverflow do showmessage ('Ñëèøêîì äëèííûå ÷èñëà!');
    end;
 
end;
end.
Вообще не знаем что добавить!!!!
 
[size="1"][color="grey"][I]Добавлено через 25 минут[/I][/color][/size]
Помоги объясни пожалуйсто 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 begin
if Length(edit1.text)<1 then//почему тут такой диапазон что это значит
                  if not (key in ['1'..'2']) then Key:=#0;//1
if Length(Edit1.text)>=4 then
                          if key<>#08 then
                          begin
                            showmessage('Только 4 цифры');//2
                            Key:=#0;
                            end;
If length(edit1.text)=1 then
                      if(edit1.text ='2') and(key<>'0')then Key :=#0;//3
if length(edit1.Text)=1 then
                      If (edit1.text='1')and(key<>'9')then Key:=#0;//4
 
end;