Оформить в виде функции

case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
 
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit1.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit1.Text) <> 0
                      then Key := Chr(0);
          else   // остальные символы запрещены
               key := Chr(0);
 
    end;

(Sender as TEdit).Text

procedure TForm1.Edit1KeyPress(....);
  procedure HandleDigits;
  begin
    ...
  end;
  procedure HandlePunctuation;
  begin
    ...
  end;
  procedure HandleOthers;
  begin
    ...
  end;
begin
  case Key of
    #8,'0'..'9' :  HandleDigits;
    '.',',': HandlePunctuation;
     else   
      HandleOthers;
  end;
end;

function getdigits(var key:char;edit:tedit);
begin
case key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
 
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if key <> DecimalSeparator then
                  key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,edit.Text) <> 0
                  then key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(edit.Text) <> 0
                      then key := Chr(0);
          else   // остальные символы запрещены
               key := Chr(0);
     end;
end;
getdigits(Key,Edit1);//Вызов функции.

function

procedure