Hola
Lo he hecho de memoria (por primera vez), seguro que me equivoco, pero creo que por ahi va.
Código Delphi
[-]Var
Fecha: TDate;
Begin
Fecha:= now;
If Fecha = Table1.Filebyname('Fecha').Date then
begin
ShowMessage('true')
end
else
ShowMessage('False')
end;
Ya lo corregirán si no es asi.
Saludos