Разрешить ввод в Edit только цифр и разделителя дробной части

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     case Ord(Key) of
    8:begin  //это бэкспейс
      end;
    45:begin //минус
       end;
    48..57:begin //цифры
           end;
    44,46:begin  //разделитель дробной части
          if Ord(Key)= 46 then key:=#44
          end;
 
    else key:=#0
  end;
end;

var 
  i : integer;
  c : char;
  s : string;
 
...
 
// результирующая строка:
s := ''
// проходим по всем символам исходной строки:
for i:=1 to Length(Edit.Text) do
begin
  // берем текущий символ:
  c := Edit.Text[i];
  // Проверяем его на принадлежность к цифрам:
  if (c >= '0') and (c <= '9') then s := s + c;
  // Или знакам 'точка' или 'запятая':
  if (c = '.') or (c = ',') then s := s + c;
end;
// Присваеваем полю результирующую строку:
Edit.Text := s;

type
  TNumEdit = class(TEdit)
    procedure CreateParams(var Params: TCreateParams); override;
    procedure KeyPress(var Key: Char); override;
end;
 
procedure register;
 
implementation
 
procedure register;
begin
  RegisterComponents('Standard', [TNumEdit]);
end;
 
procedure TNumEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT;
end;
 
procedure TNumEdit.KeyPress(var Key: Char);
begin
  case key of
    '0'..'9': ; // цифры
    #8: ; // забой
    '.', ',':
      if Pos(DecimalSeparator, Text) = 0 then
        Key := DecimalSeparator
      else
        Key := #0; // десятичный разделитель
    else
      key := #0;
  end; // case
end;
 
end.

try
x:=strtoint(edit1.Text);
except
ShowMessage('Error. Please input a INT value.');
end;

procedure TfrmMod.edtAccountKeyPress(Sender: TObject; var Key: Char);
begin
    // нет проверки на 'Backspace' :)_
    if (not (key in ['0'..'9'])) then key := #0;
end;