Menghilangkan Thousand Separator

Katakan anda telah berhasil menampilkan angka di TEdit atau di sebuah cell TStringGrid dalam format 1.500,25 yang tentu saja bertipe String. Sekarang saatnya menyimpan angka tersebut ke database. Padahal database hanya mau menerima angka tersebut dalam format 1500.25. Bagaimana mengubah format 1.500,25 menjadi 1500.25?

function sNoThousandDotDecimal(sCurr: String): String;
var
  sUang: String;
begin
  sUang := FormatFloat('0.00',
           StrToFloat(AnsiReplaceStr(sCurr,'.','')));
  sUang := AnsiReplaceStr(sUang,',','.');
  Result:= sUang;
end;

Selamat mencoba