Перенос данных из одной БД в другую

[demiancz]

Есть 2 формы на обоих формах есть DBGrid.
Нужно что бы при нажатии в контекстном меню на "Добавить" данные из одной Базы данных перенеслись в другую.
Пробую так, но ничего не получается

procedure TForm1.N1Click(Sender: TObject);
var
m : Integer;
begin
m:=1;
while m <= 100 do
if  (sTabSheet7.Visible) and
(PopupMenu1.PopupComponent is TDBGrid) then begin
DataModule2.ADOQuery5.Insert;
DBGrid1.SetFocus;
break;
end;

[Bit_Man]

Просто insert?
можно типа такого
ADOConnection1.BeginTrans;
тут цикл по ADOQuery1 с начала по конец

    ADOQuery2.Insert;
    ADOQuery2.FieldValues['1'] := ADOQuery1.FieldValues['1'];
    ADOQuery2.Post;

после цикла
ADOConnection1.CommitTrans;