在线求助！！数据丢失问题 有源代码！！！！

我做了一个数据传输程序，一分钟执行一次！把一个数据库中的数据到到另一个（异地）的数据库中！
程序开始两天运行的还可以 但是过两天后就会有大量的数据丢失。真是郁闷……
下面是部分代码，我用定时器执行的！请问这样合理吗？
chongxie:
with adoqel do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * from  tablex where date1 =:datex order by time1 ');
      Parameters[0].Value:= FormatDateTime('yyyy-mm-dd', Now);
      Prepared;
      Open;
      if adoqel.Eof = true then
        begin
         writeTimer2.Enabled := true;
        end
     else
       begin
         last;
         min := fieldbyname('min').Value; 
         time1:= fieldbyname('time1').Value;
         date1 := fieldbyname('date1 ').Value;              
       end;
   end;
//***********************
 with adoqtc do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * From mintable where date1 =:datex ');
      Parameters[0].Value:= FormatDateTime('yyyy-mm-dd', Now);
      Prepared;
      Open;
      Append ;
      fieldbyname('min').Value := min;
      fieldbyname('time1').Value :=time1;
      fieldbyname('date1').Value :=date1;      Post;
      ////////////////////////
      Close;
      SQL.Clear;
      SQL.Add('SELECT * From second_curve_mintable where date1 =:datex and time1=:timex ');
      Parameters[0].Value:= date1;
      Parameters[1].Value:= time1;
      Prepared;
      Open;
      if adoqtc.Eof = true then
         begin
           goto chongxie;
         end
      else
         begin
           label1.Caption := datetimetostr(now)+'数据已经传输';
                  end;
    
    end;