[Luis Felix]

Hola, de nuevo muchas gracias por su ayuda y atencion a este post, tengo una plicacion que desarrolle con la Version 5 de Delphi, ahora estoy trabajando con la version 7, realmente no recuerdo si en la version 5 realmente trabajo, creo que si (ya tengo tiempo que no desarrollava), pero ahora con la version 7 no funciona el filtrado, la idea es filtrar una tabla de acuerdo con un rango de fechas, pero las variables no toman las fechas del DateTimePicker, aqui la parte a la cual hago mencion, para ver si me pudieran ayudar, de antemano gracias.

Declaracion de variables:

var
Form34: TForm34;
Finicial:Tdatetime;
Ffinal:Tdatetime;
Central, Cadena1, Cadena2, Cadena3:String;
Apuntador:Integer;
A1,B1,C1,D1,x,y,RegEmp,UltimoReg:Integer;
NumReg,NumEmp,a,b,c,d,e,f,g,cb1,cb2,cb3,cb4,cb5,cb6:String;
Year,Mes,Dia:word;
TemRPE:String;


Codigo:

Table6.filtered:=false;
Finicial:=DateTimePicker1.date;
Ffinal:=DateTimePicker2.date;
DecodeDate (Finicial, Year, Mes, Dia);
if (Mes<10)then
cadena1:= IntToStr(Dia)+'/0'+IntToStr(Mes)+'/'+IntToStr(Year)
else
cadena1:= IntToStr(Dia)+'/'+IntToStr(Mes)+'/'+IntToStr(Year);
DecodeDate (Ffinal, Year, Mes, Dia);
if (Mes<10)then
cadena2:= IntToStr(Dia)+'/0'+IntToStr(Mes)+'/'+IntToStr(Year)
else
cadena2:= IntToStr(Dia)+'/'+IntToStr(Mes)+'/'+IntToStr(Year);
Table6.Filter:=('Fecha_Captura>='+''''+cadena1+''''+
'and Fecha_Captura<='+''''+cadena2+'''');
Table6.Filtered:=True;