Sql запрос

ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Таблица2 (фамилия, имя) ');
ADOQuery1.SQL.Add('SELECT фамилия, имя ');
ADOQuery1.SQL.Add('FROM Таблица1');
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='SELECT * FROM Таблица2';
ADOQuery1.Active:=true;

ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Таблица2 (фамилия, имя)');
ADOQuery1.SQL.Add('SELECT Таблица1.фамилия, Таблица1.имя ');
ADOQuery1.SQL.Add('FROM Таблица1');
ADOQuery1.SQL.Add('LEFT JOIN Таблица2 ON Таблица2.фамилия = Таблица2.фамилия');
ADOQuery1.SQL.Add('AND Таблица2.имя = Таблица2.имя');
ADOQuery1.SQL.Add('WHERE Таблица2.фамилия IS NULL');
ADOQuery1.SQL.Add('AND Таблица2.имя IS NULL');
ADOQuery1.ExecSQL;
ADOQuery1.Active:=true;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO Таблица2 (фамилия, имя)' +
            'SELECT Таблица1.фамилия, Таблица1.имя '+
            'FROM Таблица1'+
            'LEFT JOIN Таблица2 ON Таблица2.фамилия = Таблица2.фамилия'+
            'AND Таблица2.имя = Таблица2.имя '+
            'WHERE Таблица2.фамилия IS NULL' +
            'AND Таблица2.имя IS NULL');
   ExecSQL;
   Open;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Text := 'MERGE Таблица2 AS T2  '+
                'USING Таблица1 AS T1 '+
                'ON (T2.Фамилия = T1.Фамилия and T2.Имя = T1.Имя  and T2.Имя = T1.Имя '+
                'and T2.Отчество = T1.Отчество) '+
                'WHEN NOT MATCHED BY TARGET  '+
                ' THEN  '+
                ' INSERT(Фамилия, Имя, Отчество)'+
                'VALUES(T1.Фамилия, T1.Имя, T1.Отчество);';
    ExecSQL;
 end;
  with ADOQuery2 do
  begin
    SQL.Text := ' SELECT * FROM Таблица2';
    Open;
  end;
 
end;
 
end.