[Decoding]

Код для TEdit

Код:

   if not (Key in ['0'..'9',#8,#13]) then
      if Key in [#46] then
         if Pos( '.', ( Sender as TEdit ).Text ) <> 0 then
            Key:=#0
         else
      else
      Key:=#0

думаю под DBEdit сам допилишь