TMemo OnKeyDown

[EdNovice]

Есть необходимость написать класс на основе TMemo который будет выводить только цифры, игнорируя ножатие других клавиш.
Есть код:

TEditForCalc = class(TMemo)
  private
    procedure EditForCalcKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TEditForCalc.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  self.Parent := AOwner as TWinControl;
  self.Alignment := taRightJustify;
  self.OnKeyDown := self.EditForCalcKeyDown;
  self.TabOrder := 0;
  self.Height := 21;
  self.Width := 233;
end;

procedure TEditForCalc.EditForCalcKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key >= 96) and (Key <= 105) then
  begin
     .......
  end
  else
  begin
    Key := 0;
  end;
end;

При возникновении события OnKeyDown при нажатии клавиши с Key < 96, Key переписывается, а в TMemo буква отображается. Как это исключить?

Заранее благодарен!

[Kotofff]

Можно еще активировать событие OnKeyPress и там прописать (если нужно отображать только цифры) :

procedure TEditForCalc.EditForCalcKeyPress(Sender: TObject; var Key: Char);
begin
if (Key in['0'..'9']) then begin
......
end
else
begin
Key := #0;
end;
end;

... и будут вводиться только цифры, или изменить условие на (Key in['0'..'9','.']) и будут только цифры и точка - для десятичного ввода ,например ....
Здесь не забудьте про #0 , а не просто 0