TEditで、数値を入力すれば自動的に
「\1,000」と表示されるようにするにはどうすれば良いですか？

今は別に変数(value)を用意して
OnKeyDownで

value := 数字抽出関数(TEdit(sender).text);
TEdit(sender).text := formatfloat('\#,##0',Value);

とやっているのですがカーソルが左に移動してしまい、１，２，３と入力したら
「321」と表示されてしまいます。

宜しくお願いします。