try
  ADOQuery2.Close;
  ADOQuery2.SQL.Text := 'Insert Into tb_zfsf (票据号, 病人id,病人姓名,病人性别,病人年龄,医生姓名,医生科室,项目类型,项目名称,项目规格,数量,销价,单项累计,应收金额,实收金额,应找金额,收费日期,收费时间,收费员)'
   ' Values (:票据号, :病人id,:病人姓名,:病人性别,  :病人年龄,:医生姓名,:医生科室,:项目类型,:项目名称,:项目规格,:数量,:销价,:单项累计,:应收金额,:实收金额,:应找金额,:收费日期, :收费时间,:收费员)';
 while not ADOQuery1.Eof do
  begin
    ADOQuery2.Parameters.ParamValues['票据号'] := ADOQuery1.FieldByName('票据号').AsInteger;
    ADOQuery2.Parameters.ParamValues['病人id'] := ADOQuery1.FieldByName('病人id').AsInteger;
    ADOQuery2.Parameters.ParamValues['病人姓名'] := ADOQuery1.FieldByName('病人姓名').AsString;
    ADOQuery2.Parameters.ParamValues['病人性别'] := ADOQuery1.FieldByName('病人性别').AsString;
    ADOQuery2.Parameters.ParamValues['病人年龄'] := ADOQuery1.FieldByName('病人年龄').AsString;
    ADOQuery2.Parameters.ParamValues['医生姓名'] := ADOQuery1.FieldByName('医生姓名').AsString;
    ADOQuery2.Parameters.ParamValues['医生科室'] := ADOQuery1.FieldByName('医生科室').AsString;
    ADOQuery2.Parameters.ParamValues['项目类型'] := ADOQuery1.FieldByName('项目类型').AsString;
    ADOQuery2.Parameters.ParamValues['项目名称'] := ADOQuery1.FieldByName('项目名称').AsString;
    ADOQuery2.Parameters.ParamValues['项目规格'] := ADOQuery1.FieldByName('项目规格').AsString;
    ADOQuery2.Parameters.ParamValues['数量'] := ADOQuery1.FieldByName('数量').AsString;
    ADOQuery2.Parameters.ParamValues['销价'] := ADOQuery1.FieldByName('销价').AsString;
    ADOQuery2.Parameters.ParamValues['单项累计'] := ADOQuery1.FieldByName('单项累计').AsString;
     ADOQuery2.Parameters.ParamValues['应收金额'] := ADOQuery1.FieldByName('应收金额').AsString;
      ADOQuery2.Parameters.ParamValues['实收金额'] := ADOQuery1.FieldByName('实收金额').AsString;
       ADOQuery2.Parameters.ParamValues['应找金额'] := ADOQuery1.FieldByName('应找金额').AsString;
        ADOQuery2.Parameters.ParamValues['收费日期'] := ADOQuery1.FieldByName('收费日期').AsString;
         ADOQuery2.Parameters.ParamValues['收费时间'] := ADOQuery1.FieldByName('收费时间').AsString;
          ADOQuery2.Parameters.ParamValues['收费员'] := ADOQuery1.FieldByName('收费员').AsString;
..........