Hola.
Podrías hacer así:
Código Delphi
[-]
uses DateUtils;
var
aa,mm,dd,h,m,s,ms: Word;
begin
DecodeDateTime(DateTimePicker1.DateTime, aa, mm, dd, h, m, s, ms);
TableX.FieldByName('HORA').AsString:= IntToStr(h);
end;
De ese modo podés guardar lo que quieras del TDateTimePicker, desde el año hasta los milisegundos.
Saludos.