Proses input angka rupiah, akan lebih manarik, lebih memudahkan interaksi dengan user, jika proses input tersebut dalam format ribuan ( rupiah ). Berikut ini trik untuk proses input dalam format ribuan ( rupiah ) : 1. Pada form, tambahkan component Edit ( Tedit ) 2. Pada Component TEdit, tambah code pada Event OnKeyPress Code ini untuk validasi input... (yg diinput hanya angka saja) procedure Tf_main.Edit1KeyPress(Sender: TObject; var Key: Char); begin //selain angka (0..9)& backspace( #8 ), input dimatikan if not(key in['0'..'9',#8]) then key:=#0 end; 3. Pada Component TEdit, tambah code pada Event OnKeyUp Code ini unntuk format angka ke rupiah atau sebaliknya procedure Tf_main.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); 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); end; Lihat hasilnya: ( screenshot)