判斷某一日期是否小於現在

procedure TForm1.Button1Click(Sender: TObject);
var
  pDate : AnsiString;
begin
  pDate:='2007/11/01';
  if strtodate(pDate) < strtodate(FormatDateTime('yyyy/mm/dd', Now)) then
    showmessage(datetostr(now()));
end;