копирование данных текущей строки DBGridEh В другjq DBGridEh

[ТипичныйСтудент]

Всем добрый вечер! Очень-очень нужна помощь! Дельфи, на форме есть 2 DBGridEh, 2 DataSource, 2 DataSet, 2 ADOConnection. Каждый DBGridEh подключен к своей таблице одной БД SQLite (DBGridEh1 = табл it, DBGridEh2 = табл vibor). Таблица it содержит записи, таблица visit пустая, названия полей обоих таблиц идентичны. Мне необходимо с помощью чекбоксов выбрать некоторые записи из первой таблицы, нажать на кнопку и эти данные должны копироваться во вторую таблицу.
Огромная просьба подсказать код!!!!!!!!!

[ТипичныйСтудент]

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.DataSource2.DataSet.Append;
  Form1.DataSource2.DataSet.FieldByName('name').Value   :=  Form1.DataSource3.Dataset.FieldByName('name').Value;
  Form1.DataSource2.DataSet.FieldByName('zavnom').Value :=  Form1.DataSource3.Dataset.FieldByName('zavnom').Value;
  Form1.DataSource2.DataSet.FieldByName('invnom').Value :=  Form1.DataSource3.Dataset.FieldByName('invnom').Value;
  Form1.DataSource2.DataSet.FieldByName('mesto').Value  :=  Form1.DataSource3.Dataset.FieldByName('mesto').Value;
  Form1.DataSource2.DataSet.FieldByName('user').Value   :=  Form1.DataSource3.Dataset.FieldByName('user').Value;
  Form1.DataSource2.DataSet.FieldByName('po').Value     :=  Form1.DataSource3.Dataset.FieldByName('po').Value;
  Form1.DataSource2.DataSet.FieldByName('licenz').Value :=  Form1.DataSource3.Dataset.FieldByName('licenz').Value;
  Form1.DataSource2.DataSet.Post;
  Form1.DataSource2.DataSet.Active:=False;
  Form1.DataSource2.DataSet.Active:=True;
end;

может кому пригодится, все работает=)