Ecfisa, ya lo probé y no funciona como deseo, pues quedan fijas las comas y puntos decimales, como las barras de las fechas. Mi idea es a medida que ingresa el numero, vaya mostrando las separaciones de decenas de mil y punto decimal. Puse una función en onchange, que vaya formateando el numero, pero no funciona ya que el cursor se posiciona en cualquier lugar al volver del formatfloat.
Código Delphi
[-]
procedure TForm1.EFECTIVOChange(Sender: TObject);
var
cadena:string;
begin
CADENA:=STRINGREPLACE(VARTOSTR(EFECTIVO.Text),'.','',[rfReplaceAll]);
EFECTIVO.Text:=Formatfloat('##,###,##0.00', strtofloat(CADENA));
end;