Pengurangan Tanggal Dan Pembuatan Denda

Di sini saya akan membahas tentang pembuatan denda mungkin skrip ini berfungsi pada program aplikasi perpustakaan , Rental Vcd maupun Program yang lain.
Langsung saja:

disini saya menggunakan komponen maskedit
dan saya tambahkan juga ttimer
dobleklik pada timer nya
dan isikan kode ini
maskedit1.text:=datetostr(date());
maskedit2.text:=datetostr(date());

Pertama Buat Variable B,U,Haridengan tipe Real;
dan ini skripnya;
begin
b:=strtodate(maskedit1.text);
u:=strtodate(maskedit2.text);
hari:=(b-u)*1000;//seribu ini adalah denda per hari ini saya buat denda perhari 1000
edenda.text:=floattostr(round(hari));
end;