Var FechaAyer, FechaManana: TDateTime;
...
FechaAyer := EncodeDateTime(YearOf(Fecha-1), MonthOf(Fecha-1), DayOf(Fecha-1), 21, 00, 00);
...
SQL.Add('Where Fecha between :FechaAyer and :FechaManana');
ParamByName('FechaAyer').AsDateTime := FechaAyer
...