函数如下：
     function isdate(s:string):boolean;
     begin
       result:=false;
       try
         strtodate(s);
         result:=true;
       except
         on econverterror do
         result:=false;
       end;
     end;