Problemas con un filtrado

[pyanqn]

Claro, es que el problema es por el tipo de codificación supongo, el filtro lo quiero hacer por el campo fecha, así pongo:

fecha:='VISITA_FECHA='''+ datetostr(DTP1.Date)+ '''';
DataSource1.DataSet.Filter :=fecha;
dataSource1.DataSet.Filtered :=true;

Pero la grilla que muestra los datos, vacia!, supongo que puede ser que en la BD el tipo es Date, pero fecha de que tipo de String debería ser ShortString, AnsiString...