Не работает Locate через Timer

Query1.Locate('REMAINDERDATA', date+time, [loCaseInsensitive, loPartialKey]);
if Query1.['REMAINDERDATA']=date+time then
   begin
      Вывести форму-напоминалку;
   end;

var
  DateT : TDateTime;
  AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond : Word;
begin
  DecodeDateTime(Now, AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
  DateT := EncodeDateTime(AYear, AMonth, ADay, AHour, AMinute, 0, 0);
        //строки выше можно оформить одной функцией
 
  Query2.SQL.Text := 'select * from tttt where REMAINDERDATA <= :DT';
  Query2.ParamByName('D').Value := DateT;
  Query2.Open;
  if not Query2.Eof then
    //cообщение о наступлении события
end;

var
  DateB, DateE : TDateTime;
  AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond : Word;
begin
  DecodeDateTime(Now, AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
  DateE := EncodeDateTime(AYear, AMonth, ADay, AHour, AMinute, 0, 0);
  DateB := IncMinute(DateB, -1);  //диапазон в одну минут, но это лишь для примера, можно и больше
 
  Query2.SQL.Text := 'select * from tttt where REMAINDERDATA >= :DB and REMAINDERDATA <= :DE'; 
       //можно использовать и between, если поддерживается СУБД
  Query2.ParamByName('DB').Value := DateB;
  Query2.ParamByName('DE').Value := DateE;
  Query2.Open;
  if not Query2.Eof then
    //cообщение о наступлении события
end;

var
   DateB, DateE: TDateTime;
   AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word;
begin
   DecodeDateTime(Now, AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
   DateE := EncodeDateTime(AYear, AMonth, ADay, AHour, AMinute, ASecond, 0);
   DateB := IncSecond(DateE, -1);  
 
   QCheck.Close;
   QCheck.SQL.Text := 'select * from Organizer where REMAINDERDATA >= :DB and REMAINDERDATA <= :DE';
       //можно использовать и between, если поддерживается СУБД
   QCheck.ParamByName('DB').Value := DateB;
   QCheck.ParamByName('DE').Value := DateE;
   QCheck.Open;
   if not QCheck.Eof then frmReminder.ShowModal;
end;