[MarinaB]

Подскажите, пожалуйста, что делаю не так?
пишу:

Код:

try
  DataModule1.ADOQuery1.Active:= false;
  DataModule1.ADOQuery1.SQL.Clear;
  DataModule1.ADOQuery1.SQL.Add('Select [DateGaran]');
  DataModule1.ADOQuery1.SQL.Add('From GaranTalon');
  DataModule1.ADOQuery1.SQL.Add('Where [s/n] like '''+DBEdit2.Text+'''');
  DataModule1.ADOQuery1.Active:= true;
  DateGaran2 := DataModule1.ADOQuery1.Fields[0].AsDateTime;
  except
   MessageDlg('Ошибка в запросе поиска кода изделия', mtError, [mbOK], 0);
  end;

MessageDlg('Дата составления гарантийного талона на данный товар:   ' + DateToStr(DateGaran2), mtInformation, [mbOK], 0);
//================Разница дат гаран и квитанции=======================================
if MaskEdit1.Text <> '  .  .    ' then
begin
  s := DaysBetween(StrToDateTime(MaskEdit1.Text),DateGaran2);
  MessageDlg('Истечение срока гарантии через:   ' + DateTimeToStr(s), mtInformation, [mbOK], 0);   //вот здесь неправильно считает

end;

DateUtils подключила