Объединение двух таблиц

 try
    ADOQuery5.Active:=False;
    ADOQuery5.Close;
    Adoquery5.SQL.Clear;
    ADOQUery5.SQL.Add('CREATE TABLE reportemp (Id_name CHAR(30), month1 CHAR(10), month2 CHAR(10), month3 CHAR(10), month4 CHAR(10), month5 CHAR(10), month6 CHAR(10),');
    ADOQUery5.SQL.Add(' month7 CHAR(10), month8 CHAR(10), month9 CHAR(10), month10 CHAR(10), month11 CHAR(10), month12 CHAR(10), itog CHAR(15))');
    ADOQuery5.ExecSQL;
    ADOQuery5.Active:=True;
  except
  end;

try
    ADOQuery5.Active:=False;
    ADOQuery5.Close;
    Adoquery5.SQL.Clear;
    ADOQUery5.SQL.Add('INSERT INTO reportemp (id_name, month1, month2, month3) SELECT ID_Name, October, November, December FROM '+Edit3.Text);
    ADOQuery5.ExecSQL;
    ADOQuery5.Active:=True;
  except
  end;

  try
    ADOQuery5.Active:=False;
    ADOQuery5.Close;
    Adoquery5.SQL.Clear;
    ADOQUery5.SQL.Add('INSERT INTO reportemp (month4, month5, month6, month7, month8, month9, month10, month11, month12) SELECT January, February, March, April, May, June, July, August, September FROM '+IntToSTR(STRToINT(Edit3.Text)+1));
    ADOQuery5.ExecSQL;
    ADOQuery5.Active:=True;
  except
  end;