Как можно вставить кнопку (Button)_2

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Insert;
ADOQuery1.FieldByName('Код').AsString :=Edit1.Text; //строковое значение
ADOQuery1.FieldByName('Насаб').AsInteger :=StrToInt(Edit2.Text);//числовое значение
ADOQuery1.FieldByName('Насаб').AsInteger :=StrToInt(Edit3.Text);//числовое значение
ADOQuery1.FieldByName('Номи Падар').AsInteger :=StrToInt(Edit4.Text);
   end;
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Insert;
//ADOQuery1.FieldByName('Код').AsInteger :=Edit1.Text; //строковое значение
ADOQuery1.FieldByName('Насаб').AsString :=StrToInt(Edit1.Text);//числовое значение
ADOQuery1.FieldByName('Насаб').AsString :=StrToInt(Edit2.Text);//числовое значение
ADOQuery1.FieldByName('Номи Падар').AsString :=StrToInt(Edit3.Text);
   end;
end;
end..

ADOQuery1.FieldByName('Насаб').AsString := Edit2.Text;
ADOQuery1.FieldByName('Ном').AsString := Edit3.Text;
ADOQuery1.FieldByName('Номи Падар').AsString := Edit4.Text;

if Column.FieldName = 'n' then
 with DBGrid1.Canvas do
    begin
       Brush.Color := clWhite;
       FillRect(Rect);
       TextOut(Rect.Right - 2 - DBGrid1.Canvas.TextWidth(IntToStr(Column.Field.DataSet.RecNo)), Rect.Top + 2, IntToStr(Column.Field.DataSet.RecNo));
    end;