ADOTable Filtering

[MLNorton]

I have two forms, MAIN and DISPLAY. On the Main Form I create an Integer variable. "Today", of the current date in the format YYYYMMDD. On the DISPLAY Form I have a DBgrid. One of the fields in the DBGrid is an Expriation Date as integer, "ExpDate", in the format YYYMMDD.

I have tried to Filter both in the ADOTable Object Inspector and in code as follows:

In code:
Filter := 'ExpDate >= Today'

In Object Inspector:
Filter ExpDate >= Today

If I use an actual interger value, 20101103, Filtering works.
If iI use the integer variable, "Today", Filtering does not work.

 

[DjangMan]

filter := 'ExpDate >= '+IntToStr(Today);