[NIch]

Код:

procedure TForm1.Edit1KeyPress(Sender : Tobject; var Key : Char);
begin
  Case Key of
    '0'..'9', #8:;// Цифры и Backspase
    ',' , '.':;// Точка и запятая
    else Key := #0;// Остальные символы гасить
  end;
end;