Código Delphi [-]cadena := 'Fecha > ' + QuotedStr(DatetoStr(DateTimePicker1.date));
cadena := 'Fecha > ' + QuotedStr(DatetoStr(DateTimePicker1.date));