Копирование строки из одной таблицы в другую

procedure TForm1.SpeedButton6Click(Sender: TObject);
var
   Num: SmallInt;
begin
   DM.ADOTable_Korzina.Insert;
   DM.ADOTable_Korzina.Edit;
   for Num := 1 to DM.ADOTable_Nalichie.FieldCount-1 do
   begin
      Dm.ADOTable_Korzina.Fields[Num].Assign(DM.ADOTable_Nalichie.Fields[Num]);
      DM.ADOTable_Korzina:=DM.ADOTable_Nalichie;
      DM.ADOTable_Korzina.Post;
   end;
end;

      DM.ADOTable_Korzina:=DM.ADOTable_Nalichie;

DM.ADOTable_Korzina:=DM.ADOTable_Nalichie;

DM.ADOTable_Korzina.Edit;
Dm.ADOTable_Korzina.Fields[Num].Value := DM.ADOTable_Nalichie.Fields[Num].Value;
DM.ADOTable_Korzina.Post;

DM.ADOTable_Korzina.Insert;
   DM.ADOTable_Korzina.Edit;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ADOTable2.insert;
ADOTable2.FieldByName('Фамилия').AsString :=ADOTable1.FieldByName('Фамилия').AsString;
ADOTable2.FieldByName('Имя').AsString :=ADOTable1.FieldByName('Имя').AsString;
ADOTable2.FieldByName('Отчество').AsString :=ADOTable1.FieldByName('Отчество').AsString;
ADOTable2.Post;
end;

With ADOQuery1 do
begin
    SQL.Clear;
    SQL.Add('Insert into test (Familiya,Name,Otchestvo)');
    SQL.Add('select Familiya, Name, Otchestvo from users');
    ExecSQL;
end;
 With ADOQuery1 do
 begin
  SQL.Text := 'select * from test';
  open;
 end;
 
end;

procedure TForm1.КопироватьClick(Sender: TObject);
begin
  With ADOQuery2 do
  begin
      SQL.Clear;
      SQL.Add('Insert into Tab2 (Familia,Imia, Otchestvo)');
      SQL.Add('select Familia,Imia, Otchestvo from Tab1 ');
      ExecSQL;
  end;
   With ADOQuery2 do
   begin
    SQL.Text := ' select * from Tab2 ';
    open;
   end;
end;
 
end.