with dm.ADOQueryMain do
      begin
      Close;
      SQL.Clear;
      Sql.Add('create table tt');
      SQL.Add('SELECT NP,RAION,ul,dom,kor');
      SQL.Add('FROM Fl');
      SQL.Add('union');
      SQL.Add('SELECT NP,raion,ul,dom,kor');
      SQL.Add('from Lich');
      //,Lich');
      try
      execSQL;
      except
      end;
      end;//with

 SQL.Add('SELECT NP,RAION,ul,dom,kor');
      SQL.Add('into tt');
      SQL.Add('FROM Fl');
      SQL.Add('union');
      SQL.Add('SELECT NP,raion,ul,dom,kor');
      SQL.Add('from Lich');

      SQL.Add('insert into _TotalList');
      SQL.Add('SELECT Fl.NP,Fl.RAION,Fl.ul,Fl.dom,Fl.kor');
      SQL.Add('union');
      SQL.Add('SELECT Lich.NP,Lich.raion,Lich.ul,Lich.dom,Lich.kor');

insert into _totallist (NP,Raion,UL,Dom,KOR)
select * 
from
(select Fl.NP as NP, FL.RAION as RAION, FL.ul as UL, Fl.dom as DOM , FL.kor as KOR
from FL
union 
SELECT Lich.NP, Lich.raion, Lich.ul, Lich.dom, Lich.kor
From Lich)