procedure TThsj.CBThsjKeyPress(Sender: TObject; var Key: Char);
begin
  if CBThsj.Style = csSimple then
  begin
    case TField(CBThzd.Items.Objects[CBThzd.ItemIndex]).DataType of
      ftSmallint, ftInteger, ftLargeint, ftWord, ftBytes: {整型}
        if not (key in ['0'..'9', #8, #3, #22]) then
          key := #0;
      ftFloat, ftCurrency, ftBCD: {浮点型}
        if not (key in ['0'..'9', '.', #8, #3, #22]) then
          key := #0
        else  //这里的高亮匹配不正确，匹配到Case语句上面了
        begin
          if key = '.' then
          begin
            if AnsiPos('.', CBThsj.Text) > 0 then
              key := #0;
            if length(CBThsj.Text) = 0 then
              CBThsj.SelText := '0'; {此处必须用SelText属性}
          end
        end;
      ftDate, ftTime, ftDateTime: {日期型}
        if not (key in ['0'..'9', '-', #8, #3, #22]) then
          key := #0;
    end;
  end;
end;

感谢指出。是我们的一个bug，406的每日构建版中将修正。

406已出，烦请下载验证？

验证完再报告一下，顺便感谢辛勤各位的劳动。

验证完毕，此问题已修正，谢谢。