strsql:string;  
   
    strsql等于一个insert语句。  
      query.close;  
      query.sql.clear;  
      query.sql.add(strsql);  
      query.ExecSQL;     //报错:type   mismath   in   expression    
  这些原来都是用delphi5编的，现在我在delphi6上运行。