一个奇怪的时间提取问题，急！！！

我想根据时间的判断来决定一下个部骤，但是日期可以没问题，可是时间却怎么也对不上，代码如下：同时我也发现了我的系统时间很奇怪，在数据库表中的时间是正常的格式，当将其在listview上显示时就变成多了一个日期,如：1899-2-7 15:39:34(用showmessage()函数来提取也是这个值），而在数据表中或edit中都为15:39:34，不解，
    同时在条件中日期是正常的（有去时间试过），去日期，只时间不正常，都试过，同时也用了以下的五种格式都试过不行（见代码下面）：现在真的没有辙了，请大家请点一二；急啊！！！！
问题就在取时间的值这里，数据库的时间没有办法和取得的系统时间对应；timer的设置也调过100-500毫秒间都试过：procedure Tformain.Timer1Timer(Sender: TObject);
var
titem:tlistitem;
begin
with datamodule1.adotimes do
begin
close;
sql.Clear;
sql.Add('select * from timesend');
open;
     if (fieldbyname('date').AsString=datetostr(date())) and (strtotime(copy(fieldbyname('time').AsString,12,8))=time()) then
      begin
  ..........
第一种：(copy(fieldbyname('time').AsString,12,8)=timetostr(time()))
第二种：(fieldbyname('time').AsString))=timetostr(time()))
第三种：（trim((copy(fieldbyname('time').AsString,12,8))=timetostr(time()))
第四种：(strtotime(copy(fieldbyname('time').AsString,12,8))=time()) 
第五种：(strtotime(trim(copy(fieldbyname('time').AsString,12,8)))=time())