некорректное преобразование типов float()

[m-d-k]

Проблема - различные значения секунд в Label1 и Label2 при изменении DateTimePicker1

void __fastcall TForm1::DateTimePicker1Change(TObject *Sender)
{
float md;
unsigned short hour,min,sec,ms;
DecodeTime(DateTimePicker1->Time,hour,min,sec,ms);
md=float(sec)/86400+15078;
Label1->Caption=FloatToStr(md); //работает неправильно!
Label2->Caption=FloatToStr(float(sec)/86400+15078); //работает правильно
}

Похоже, некорректное преобразование типов float()?

Что не правильно в первом варианте?

[m-d-k]

Разобрался!
Замена на double помогла!