Как из буфера таблицу загнать в ado?

procedure TForm1.Button2Click(Sender: TObject);
var
stringgrid1: TStringGrid;
 str, cell : TStringList;
 i, u : integer;
begin
stringgrid1:=Tstringgrid.Create(form1);
stringgrid1.Parent:=form1;
str := TStringList.create;
str.text :=ClipBoard.AsText;
cell := TStringList.create;
stringgrid1.RowCount:=1;
stringgrid1.ColCount:=1;
 for i:=0 to str.Count-1 do
  begin
   stringgrid1.RowCount:=stringgrid1.RowCount+1;
   cell.text := stringReplace(str[i], #9, #13#10, [rfReplaceAll]);
    for u:=0 to cell.Count-1 do
     begin
     if stringgrid1.ColCount - 1 < u then stringgrid1.ColCount:=stringgrid1.ColCount+1;
     stringgrid1.Cells[u, i] :=cell[u];
     end;
  end;
str.Free;
cell.Free;
stringgrid1.RowCount:=stringgrid1.RowCount-1;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('№').AsString:=stringgrid1.Cells[0,0];
ADOQuery1.Post;
end;