My test table create dcript:
CREATE TABLE Test(col1 integer,
col2 date not null);
I use col2 to store only time, and my code just like below:
table1.Insert;
table1.FieldByName('Col1').AsInteger := 0;
table1.FieldByName('Col2').AsDateTime := EncodeTime(0,0,0,0)...