以下代码执行后最后一条记录无法正确显示但数据库中又有相应记录请问错在哪里？

procedure Tfrmmainyuan.BitBtn1Click(Sender: TObject);
  var
   temp1,i:integer;
   temp2,temp3,temp:string;
   dates1,dates2:string;
   myinifile:TINIFile;
  gongzi:Single;
begin
  ADOTable1.Open;
  ADOTable2.Open;
  ADOTable1.First;
  ADOTable2.First;
   while not ADOTable1.Eof do
   begin
    ADOTable1.Delete;
   end;
   while not ADOTable2.Eof do
   begin
   ADOTable2.Delete;
   end;  ADOTable3.Open;
  ADOTable4.Open;
  ADOTable5.Open;
  dates1:=DateToStr(DateTimePicker1.Date);
  dates2:=DateToStr(DateTimePicker2.Date);
  while not ADOTable3.Eof do
  begin
     ADOTable1.Append;
     ADOTable1.FieldValues['ID']:=ADOTable3.FieldValues['ID'];
     ADOTable1.FieldValues['NAME']:=ADOTable3.FieldValues['NAME'];
     ADOTable1.Post;
      while not ADOTable5.Eof do
      begin
          if ((StrToDate(ADOTable4.FieldValues['DATE'])>=StrToDate(dates1)) and (StrToDate(ADOTable4.FieldValues['DATE'])<=StrToDate(dates2)))  then
          begin
          ADOTable2.Filtered:=False;
          temp1:=ADOTable3.FieldValues['ID'];
          temp2:=ADOTable4.FieldValues['KUAN_ID'];
          temp3:=ADOTable5.FieldValues['GONG_ID'];
          ADOTable2.Filter:='ID='''+IntToStr(temp1)+''' AND KUAN_ID='''+temp2+ ''' AND GONG_ID='''+temp3+'''';
          ADOTable2.Filtered:=True;
          if ADOTable2.RecordCount<>0 then
           begin
             ADOTable2.Edit;
             ADOTable2.FieldValues['JIAN_ID']:=ADOTable2.FieldValues['JIAN_ID']+ADOTable5.FieldValues['JIAN_ID'];
             ADOTable2.Post;
           end
           else begin
             ADOTable2.Append;
             ADOTable2.FieldValues['ID']:=ADOTable3.FieldValues['ID'];
             ADOTable2.FieldValues['KUAN_ID']:=ADOTable4.FieldValues['KUAN_ID'];
             ADOTable2.FieldValues['GONG_ID']:=ADOTable5.FieldValues['GONG_ID'];
             ADOTable2.FieldValues['JIAN_ID']:=ADOTable5.FieldValues['JIAN_ID'];
             ADOTable2.Post;
           end;
          end;
    ADOTable5.Next;
    end;
 ADOTable3.Next;
  end;
  ADOTable1.Close;
  ADOTable2.Close;
  ADOTable3.Close;
  ADOTable4.Close;
  ADOTable5.Close;  ADOTable8.Open;
  ADOTable9.Open;  myinifile:=TINIFile.Create(ExtractFilePath(paramstr(0))+'myini.ini');
   temp:=myinifile.ReadString('default','pay','2003-1-1');
   myinifile.Destroy;
  
   ADOTable8.Filter:='NAME='''+temp+'''';
   ADOTable8.Filtered:=True;
 ADOTable10.Open;
 while not ADOTable10.Eof do
 begin
   ADOTable9.First;
     while not ADOTable9.Eof do
     begin
         if (ADOTable9.FieldValues['KUAN_ID']=ADOTable10.FieldValues['KUAN_ID']) and (ADOTable9.FieldValues['GONG_ID']=ADOTable10.FieldValues['GONG_ID']) then
         begin
         ADOTable10.Edit;
         ADOTable10.FieldValues['DANGJIA']:=ADOTable9.FieldValues['DANGJIA'];
          ADOTable10.FieldValues['XIAOJIE']:=ADOTable9.FieldValues['DANGJIA']*ADOTable10.FieldValues['JIAN_ID'];
         ADOTable10.Post;
         end;
     ADOTable9.Next;
     end;
 ADOTable10.Next;
 end;
 ADOTable8.Close;
 ADOTable9.Close;
 ADOTable10.Close;
 ADOTable6.Open;
 ADOTable7.Open;
 gongzi:=0;
 while not ADOTable6.Eof do
 begin
     while not ADOTable7.Eof do
      begin
     gongzi:=gongzi+ ADOTable7.FieldValues['XIAOJIE'];
     Edit1.Text:=IntToStr(ADOTable7.FieldValues['XIAOJIE']);
     ADOTable7.Next;
     end;
  ADOTable6.Edit;
 ADOTable6.FieldValues['GONGZI']:=gongzi;
 ADOTable6.Post;
 gongzi:=0;
 ADOTable6.Next;
 end;
 ADOTable6.Close;
 ADOTable7.Close;
 form1.ADOTable1.Open;
form1.ADOTable2.Open;
 form1.QuickRep1.PreviewModal;
 
end;