Ingresar un número con formato en un control TEdit

[aromigaret]

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;