Вывод информации, подскажите

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
i=0;
tst="select * from \'d:\\temp2\\reestr.dbf\'";
Query1->SQL->Text=tst;
Query1->Open();
ProgressBar1->Max=Query1->RecordCount;
 
while (!Query1->Eof)
 {
   Query2->SQL->Clear();
  Query2->SQL->Add("insert into reestr2.dbf(");
  Query2->SQL->Add("dlit,dat_post,dat_wypis,name_1,name_2,name_3,pol,dat_born,adres,npref,");
  Query2->SQL->Add("stretref,dom,korp,kwar,litkwar,mkb1,otdel,company,polis_ser,polis_num,");
  Query2->SQL->Add("rezult,subject,docum,region,nostrah,is_working,is_extren,is_perewod,is_first,lpu,");
  Query2->SQL->Add("sum1,full_sum,dat_reestr,wid_obsl,is_city,kategory,dat_diagn,ident_m,spec,cel,");
  Query2->SQL->Add("kodvr,snils,q_z,cod_usl,boln_ser,boln_num,boln_from,boln_to,lpu_napr,napr_num,");
  Query2->SQL->Add("norma,otkaz,sum_razn,avmp,wid_tr)");
  Query2->SQL->Add("values(");
  Query2->SQL->Add(Query1->FieldByName("DLIT")->AsString+",'"+Query1->FieldByName("dat_post")->AsString+"','"+Query1->FieldByName("dat_wypis")->AsString+"','"+Query1->FieldByName("name_1")->AsString+"','"+Query1->FieldByName("name_2")->AsString+"','"+Query1->FieldByName("name_3")->AsString+"','"+Query1->FieldByName("pol")->AsString+"','"+Query1->FieldByName("dat_born")->AsString+"','"+Query1->FieldByName("adres")->AsString+"','"+Query1->FieldByName("npref")->AsString+"',");
  Query2->SQL->Add("'"+Query1->FieldByName("stretref")->AsString+"',"+Query1->FieldByName("dom")->AsString+",'"+Query1->FieldByName("korp")->AsString+"',"+Query1->FieldByName("kwar")->AsString+",'"+Query1->FieldByName("litkwar")->AsString+"','"+Query1->FieldByName("mkb1")->AsString+"',"+Query1->FieldByName("otdel")->AsString+","+Query1->FieldByName("company")->AsString+",'"+Query1->FieldByName("polis_ser")->AsString+"','"+Query1->FieldByName("polis_num")->AsString+"',");
  Query2->SQL->Add(Query1->FieldByName("rezult")->AsString+","+Query1->FieldByName("subject")->AsString+","+Query1->FieldByName("docum")->AsString+","+Query1->FieldByName("region")->AsString+",'"+nostrah+"','"+iswork+"','"+isextren+"','"+isperewod+"','"+isfirst+"','"+Query1->FieldByName("lpu")->AsString+"',");
  Query2->SQL->Add(Query1->FieldByName("sum1")->AsString+","+Query1->FieldByName("full_sum")->AsString+","+Query1->FieldByName("dat_reestr")->AsString+","+Query1->FieldByName("wid_obsl")->AsString+",'"+iscity+"',"+Query1->FieldByName("kategory")->AsString+","+date1+",'"+Query1->FieldByName("ident_m")->AsString+"',"+Query1->FieldByName("spec")->AsString+","+Query1->FieldByName("cel")->AsString+",");
  Query2->SQL->Add(Query1->FieldByName("kodvr")->AsString+",'"+Query1->FieldByName("snils")->AsString+"',"+Query1->FieldByName("q_z")->AsString+",'"+Query1->FieldByName("cod_usl")->AsString+"','"+Query1->FieldByName("boln_ser")->AsString+"',"+Query1->FieldByName("boln_num")->AsString+","+date2+","+date3+",'"+Query1->FieldByName("lpu_napr")->AsString+"','"+Query1->FieldByName("napr_num")->AsString+"',");
  Query2->SQL->Add(Query1->FieldByName("norma")->AsString+","+Query1->FieldByName("otkaz")->AsString+","+Query1->FieldByName("sum_razn")->AsString+","+Query1->FieldByName("avmp")->AsString+","+Query1->FieldByName("wid_tr")->AsString);
  Query2->SQL->Add(")");
  Query2->ExecSQL();
  date2=date3="NULL";
  nostrah=iswork=isextren=isperewod=isfirst=iscity="false";
  i=i+1;
  Label1->Caption=IntToStr(i);
  Query1->Next();
 }
 ShowMessage("Добавлено "+IntToStr(i)+" записей");
 }