как перенести данные?

procedure TForm1.FormShow(Sender: TObject);
begin
ADOQuery1.First;
ComboBox1.Items.Clear;
while not ADOQuery1.Eof do begin
   ComboBox1.Items.Add(ADOQuery1.FieldByName('НазваниеКолонкиИзКоторойНужноЗанестиДанныеВКомобокс').AsString);
   ADOQuery1.Next;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Insert;
  ADOQuery1.FieldByName('НазваниеКолонкиВКоторуююНужноДобавитьЗапись').AsString:=Edit1.Text;
  ADOQuery1.Post; //Сохранение в БД
  Edit1.Text:='';
 end;

procedure TForm3.MouseWheelHandler(var Message: TMessage);
var  
p:TPoint;
begin
GetCursorPos(p);
If WindowFromPoint(p)=DBGrid1.Handle then
begin
  If Message.WParam<0
 then
  DBGrid1.Perform(WM_VSCROLL, SB_LINEDOWN, 0) 
 else
  DBGrid1.Perform(WM_VSCROLL, SB_LINEUP, 0);
end;
end;

type
TForm1 = class(Tform)
procedure MouseWheelHandler(var Message: TMessage); override;
 ...

try
    DBGrid1.DataSource.DataSet.First;
    while not DBGrid1.DataSource.DataSet.Eof
    do DBGrid1.DataSource.DataSet.Delete;
    finally
    DBGrid1.DataSource.DataSet.EnableControls;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT Книги From НазваниеТаблицы ';
ADOQuery1.open;
end;

ADOQuery1.First;
DBLookupComboBox1.Items.Clear;
while not ADOQuery1.Eof do begin
   DBLookupComboBox1.Items.Add(ADOQuery1.FieldByName('famp').AsString);
   ADOQuery1.Next;

pol:=ADOQuery1.FieldValues['famp'];
dbedit1.Text:=ADOQuery1.FieldValues['imp'];
dbedit2.Text:=ADOQuery1.FieldValues['ot4p'];

pol:=ADOquery1.FieldValues['Kod'];
dbEdit1.Text:=ADOquery1.FieldByName('imap').AsString;
dbEdit2.Text:=ADOquery1.FieldByName('ot4p').AsString;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Insert;
  ADOQuery1.FieldByName('imap').AsString:=DBEdit1.Text; //Добавит содержимое DBedit1 в колонку imap
  ADOQuery1.FieldByName('ot4p').AsString:=DBEdit2.Text; //Добавит содержимое DBedit2 в колонку ot4p
  ADOQuery1.Post; //Сохранение в БД
  DBEdit1.Text:='';
  DBEdit2.Text:='';
 end;