merhaba kendi programımda kullandım.Paylaşabileceğimi düşündüm.edit1.text:=floattostr(int(BitisT.Date-BaslangicT.Date)))başarılar..