按日期查询 查不到结果

我有一段程序,排产日期=2007-11-18时 表内有内容,应该输出, 现在输出结果是空白,不知道是什么原因,请大侠指教
代码如下:
var
  i_PlanDay:integer;
  Sysdate:string;
  N_Day:integer;
begin
  N_Day:=15;
  Sysdate:=FormatDateTime('YYYY-MM-DD',Now);
  for i_PlanDay:=1 to N_Day do
  begin
    with ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 工单号,下单日期,排产日期,');
      sql.Add('产品编码,产品名称,单位,排产数量,');
      sql.Add('需入库数量,结单日期,工单状态,执行否');
      sql.Add('from PPItem');
      sql.Add('where 排产日期='+Sysdate+'');
showmessage(SQL.Text);
      open;
      First;
      while not Eof do
      begin
      showmessage('test  ok');
      end;      Sysdate:=DateTimetostr(Strtodatetime(Sysdate)+1);
      next;
    end;
  end;
end;