как сделать вместо stringgrid dbgrid

[reihtmonbern]

Здравствуйте, помогите пожалуйста с кодом не знаю как сделать вместо stringgrid1 dbgrid1 - этот компонент отображает через адоквери данные из бд.
#
var word, doc, tab1: OleVariant;
str, text: string;
var i, j: integer;
begin
GetDir(0,str);
word:=CreateOleObject('Word.Applica tion');
word.Documents.Open('C:\x.doc');

/////////
tab1:=doc.Tables.Item(1);
if stringgrid1.RowCount>2 then
for i := 3 to stringgrid1.RowCount do
tab1.Rows.Add;
for i := 1 to stringgrid1.RowCount - 1 do
for j := 0 to stringgrid1.ColCount - 1 do
tab1.Cell(i+1, j+1).Range.Text:=stringgrid1.Cells[j,i];
word.Visible:=true;
#