Vi que tem muitos procurando por uma rotina assim Façam bom uso :rolleyes: function FNUMD(Objeto: TEdit; Texto, VKey: String; Espaco, Decimal: Integer): String; Var vChar, vDiv : String; I : Integer; begin    vDiv := '1';    For I := 1 to Decimal do      vDiv := vDiv + '0';    vChar := copy(Texto,1,length(Texto));    if (vchar = '') or (vchar = '0') then       vchar := vkey    else       vchar := vchar + vkey;    While ( pos( ',', vChar ) > 0 ) or ( pos( '.', vChar ) > 0 ) do