[fidel]

No pongas ninguna máscara y pon esto en el el evento OnKeyPress

Código Delphi [-]
  //controlar entrada solo números
  if ( StrScan('0123456789.'+chr(7)+chr(8), Key) = nil ) then  Key := #0;
  //controlar entrada una sola coma
  for i := 1 to length(EDos.Text) do
    if ( copy(EDos.Text,i,1) = '.' ) and not ( StrScan('.', Key) = nil ) then  Key := #0;