Перенос данных из DBGrid в DBGrid

ADOQuery2.Close;
ADOQuery.SQL.Text := 'INSERT INTO table1 (pole1, pole2, pole3) VALUES (:pole1, :pole2, :pole3)';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
  ADOQuery2.Parameters.ParamByName('pole1').Value := ADOQuery1.FieldByName('pole1').Value;
  ADOQuery2.Parameters.ParamByName('pole2').Value := ADOQuery1.FieldByName('pole2').Value;
  ADOQuery2.Parameters.ParamByName('pole3').Value := ADOQuery1.FieldByName('pole3').Value;
  ADOQuery2.ExecSQL;
  ADOQuery1.Next;

procedure TForm1.Button5Click(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery1.SQL.Text := 'INSERT INTO [Лист1$] (Код) VALUES (:Код)';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
  ADOQuery2.Parameters.ParamByName('Код').Value := ADOQuery1.FieldByName('Код').Value;
  ADOQuery1.ExecSQL;
  ADOQuery1.Next;
end;
end;