[DelphiM0ZG]

Вот пример кода фильтрующего числа для Edit (LabeledEdit у меня). Не очень понимаю для чего в калькуляторе Memo, но по аналогии можно сделать. В событии OnKeyPress я написал такой код.

Код:

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  If Not( (Key In ['0'..'9']) Or (Key=#8) Or ((Key=DecimalSeparator)
    And (AnsiPos(DecimalSeparator, LabeledEdit1.Text)=0)
    And (LabeledEdit1.Text<>'')) ) Then
      Key:=#0;
end;

Этот вариант, при желании (или при необходимости), можно написать и через Case. Ещё вариант нашёл: здесь.