Format uang pada komponen Edit

var

sRupiah: string;

iRupiah: Currency;

begin

//ribuan --> currency ( menyesuaikan setting windows )

sRupiah := Edit1.Text;

sRupiah := StringReplace(sRupiah,',','',[rfReplaceAll,rfIgnoreCase]); 
// hilangkan char koma , pemisah //ribuan selain IDR

sRupiah := StringReplace(sRupiah,'.','',[rfReplaceAll,rfIgnoreCase]);

//remove char titik .    pemisah //ribuan IDR

iRupiah := StrToCurrDef(sRupiah,0); // convert srupiah ke currency



//currency --> format ribuan

edit1.Text := FormatCurr('#,###',iRupiah);

edit1.SelStart := length(edit1.text);