Нужна помощь с калькулятором

procedure TCalc.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var d: Byte;
begin
  case Msg.CharCode of
 
   8: case Length(StaticText1.Caption) of
   13:y:=strtofloat(StaticText1.Caption);{enter}                                       {8 -backspace}
   0: ;
   1:StaticText1.Caption:='0';
   else
    StaticText1.Caption:=Copy(StaticText1.Caption,1,Length(StaticText1.Caption)-1);
    end;
    46: StaticText1.Caption:='0';                                               {.}
    27: Close;                                                                  {Esc}
    110, 188, 191:
       if Pos(',',StaticText1.Caption)=0
         then StaticText1.Caption:=StaticText1.Caption+',';
         48..57,96..105:                                                
           begin
           if Msg.CharCode>95 then d:=48 else d:=0;
           if StaticText1.Caption='0'
             then StaticText1.Caption:=chr(Msg.CharCode-d)
              else StaticText1.Caption:=StaticText1.Caption+'1';
            
           end;
           end;
           Handled:=True;
 
end;

48:
begin
// здесь код, выполняющийся для знака "0".
end;