var
a:tdatetime;
begin
a:=2004-09.21;
ADOTable1.close;
ADOTable1.sql.text:='select *from aaa where hire_date>'''+a+'''';
ADOTable1.open;
end;
怎么老是错弄？各位老大在这如何用那一个时间变量。帮帮我吧？

a:=2004-09.21;
这里不是日期类型了。

ADOTable1.sql.text:='select *from aaa where hire_date>'''+a+'''';
TDateTime 不是编译器可直接识别的预定义类型，它在System单元定义：

type
TDateTime = type Double;

a=date;