Как синхронизировать таблицы?

// Резервное копирование таблицы.
procedure TDataModule2.ReservCopyTab();
begin
  if not DataModule2.PQConnection1.Connected then begin
    SQLQuery1.Active:=false;
    SQLQuery1.SQL.Clear;
    SQLQuery1.SQL.Add('DROP TABLE IF EXISTS '+INI.Tab+'r'); // Удалить таблицу.
    try
      if SQLTransaction1.Active then
            SQLTransaction1.EndTransaction;
      SQLTransaction1.Options:=[stoExplicitStart]; 
      SQLTransaction1.StartTransaction; 
      SQLQuery1.ExecSQL; 
      SQLQuery1.Active:=false;
      SQLQuery1.SQL.Clear;
      SQLQuery1.SQL.Add('CREATE TABLE '+INI.Tab+'r'+
      ' AS (SELECT * FROM '+INI.Tab+')'); // Создать резервную таблицу.
      SQLQuery1.ExecSQL;
      SQLTransaction1.Commit;
      SQLTransaction1.Options:=[];
      SQLQuery1.Close;
    except
      exit;
    end;
  end;
end;

      SQLQuery1.SQL.Add('INSERT INTO '+INI.Tab+'r'+
      ' SELECT * FROM '+INI.Tab+
  //    ' ON CONFLICT DO NOTHING '+
      ' WHERE nU>='+S+' OR nU=0');
      SQLQuery1.ExecSQL;

    SQLQuery1.Active:=false; // Удалить все прибывшие автомобили.
    SQLQuery1.SQL.Clear;
    SQLQuery1.SQL.Add('DELETE FROM '+INI.Tab+'r WHERE nU=0');
    try
      if SQLTransaction1.Active then
        SQLTransaction1.EndTransaction;
      SQLTransaction1.Options:=[stoExplicitStart];
      SQLTransaction1.StartTransaction;
      SQLQuery1.ExecSQL;
      // Перенести все данные за смену.
      SQLQuery1.SQL.Add('INSERT INTO '+INI.Tab+'r'+
      ' SELECT * FROM '+INI.Tab+
  //    ' ON CONFLICT DO NOTHING '+
      ' WHERE nU>='+S+' OR nU=0');
      SQLQuery1.ExecSQL;
      SQLTransaction1.Commit;
      SQLTransaction1.Options:=[];
      SQLQuery1.Close;
    except
      if PQConnection1.Connected then
        PQConnection1.Close;
    end;

      SQLQuery1.Active:=false;
      SQLQuery1.SQL.Clear;

SQLQuery1.SQL.Add('INSERT INTO '+INI.Tab+'r'+' SELECT * FROM '+INI.Tab+
  ' WHERE nU>='+S+' OR nU=0 ON CONFLICT DO NOTHING');