El problema es que a DecodeTime le estas pasando como parametro la fecha (Date) en lugar de la hora (
Time).
Date te devuelve la fecha.
Time la hora.
Now la fecha y la hora juntos.
Lo tendrias que hacer asi:
Código Delphi
[-]DecodeTime(Time,horita,minutos,segundos,mili);