Cara Merubah Tampilan Edit Box dan Label Menjadi Format Currency di Delphi

Adakalanya aplikasi yang kita buat (dalam hal inputan edit box, atau output label) harus bisa menampilkan tampilan currency, nah disini saya akan sedikit menshare pengetahuan saya (harap maklum jika masih kurang :-D).

Ini adalah contoh syntax yang saya gunakan untuk merubah tampilan LABEL menjadi tampilan currency. Syntax ini saya simpan pada sebuah combo box dalam event on select:
LABEL1.Caption:='Rp'+FormatCurr('#,#0',StrToCurr(adq3.FieldByName('harga_jual').AsString));

Dan ini adalah contoh syntax yang saya gunakan untuk merubah tampilan EDIT BOX menjadi tampilan currency. Syntax ini saya simpan dalam event on select:
procedure TForm1.Edit1Enter(Sender: TObject);
begin
     edit1.Text:=edit2.Text;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
     edit2.Text:=edit1.Text;
     Edit1.Text := 'Rp'+FormatCurr('#,#0',StrToCurr(Edit1.Text))+',-';
end;

Disini saya menyiapkan 2 buah edit box (editbox2=gambar sebelah kiri, editbox1=gambar sebelah kanan). Mengapa harus ada editbox2? Ini saya lakukan guna mengantisipasi error yang terjadi pada saat error pada pengeditan data pada editbox1, karena pada saat kita enter lagi editbox1 formating currency tidak akan hilang (tulisan Rp, ,-) dan ini akan menyebabkan error input.
Skenarionya adalah setelah kita menginputkan nilai (harus angka, jika perlu anda buat pembatasan input agar editbox hanya menerima inputan angka) pada editbox1, lalu saat fokus dialihkan (event on exit), tampilan editbox1 akan dirubah kedalam format currency yang sudah kita tentukan, pada saat itu juga nilai sebenarnya dari editbox1 (bukan nilai currency) dicopy-kan ke editbox2. Naha pada saat mengedit (event on enter pada editbox1) nilai asli yang ada pada editbox2 akan dikembalikan ke dalam editbox1.

Akan tetapi jika anda sudah pusing dan tidak ingin ambil pusing, ada satu komponen dari Alpha Component yang memberikan anda fungsi instant untuk menggunakan fungsi currency yang namanya TsCurrencyEdit, untuk componennya silahkan cari di om google ya :-D.

Semoga bermanfaat, jangan lupa comment jika berkenan.