Hola Particularmente yo usaria esto:
Código Delphi
[-]
SQL.Add( ' WHERE (fecha = :FechaAyer AND DATE_FORMAT(hora, "%H:%i:%s")="21:00:00")' );
SQL.Add( ' OR (fecha = :FechaHoy AND DATE_FORMAT(hora, "%%i:%s")="00:00")' );
SQL.Add( ' OR (fecha = :FechaMana AND DATE_FORMAT(hora, "%H:%i:%s")="00:00:00")' );
SQL.Add( ' ORDER BY psensor.clave' );
ParamByName('FechaAyer').AsString := FormatDatetime('yyyy-mm-dd',MI_FECHA-1);
ParamByName('FechaHoy').AsString := FormatDatetime('yyyy-mm-dd',MI_FECHA);
ParamByName('FechaMana').AsString := FormatDatetime('yyyy-mm-dd',MI_FECHA+1);
y nunca me dio problemas.
Saludos.