Sql запрос

procedure TForm1.Button1Click(Sender: TObject);
begin
 with ADOQuery1 do
 begin
   Close;
   SQL.Text := 'INSERT INTO Таблица2 ( код, фамилия, имя, отчест ) '+
               ' SELECT Таблица1.код, Таблица1.фамилия, Таблица1.имя, Таблица1.отчест  '+
               ' FROM Таблица1 LEFT JOIN Таблица2 ON Таблица1.код = Таблица2.код  '+
               ' WHERE (((Таблица2.код) is null));';
   ExecSQL;
 end;
end;

begin
with DataModule3.ADOQuery1 do
begin
Close;
DataModule3.ADOQuery1.SQL.Add ('INSERT INTO Таблица2 ( код, фамилия, имя, отчест ) ');
DataModule3.ADOQuery1.SQL.Add ('SELECT Таблица1.код, Таблица1.фамилия, Таблица1.имя, Таблица1.отчест ');
DataModule3.ADOQuery1.SQL.Add ('FROM Таблица1 LEFT JOIN Таблица2 ON Таблица1.код = Таблица2.код');
DataModule3.ADOQuery1.SQL.Add ('WHERE (((Таблица2.код) is null))');
ExecSQL;
end;
end;

 with DataModule3.ADOQuery1 do 
 begin
   Close;
   SQL.Clear;
   SQL.Text := 'INSERT INTO Таблица2 ( код, фамилия, имя, отчест ) '+
               ' SELECT Таблица1.код, Таблица1.фамилия, Таблица1.имя, Таблица1.отчест  '+
               ' FROM Таблица1 LEFT JOIN Таблица2 ON Таблица1.код = Таблица2.код  '+
               ' WHERE (((Таблица2.код) is null));';
   ExecSQL;