Вывод данных в DbGrid

ADOQuery1.SQL.text:='select [Имя], [Фамилия], [Отчество],[Дата],[Время],[Событие] from [Журнал] where [Фамилия]='+QuotedStr(Edit1.Text);
ADOQuery1.Open;

procedure TForm1.Button9Click(Sender: TObject);
var s:string;
begin
s:='Select Фамилия, Имя, Отчество, Номер_телефона, Номер_паспорта From Клиенты';
ADOQuery5.Close;
ADOQuery5.SQL.Clear;
ADOQuery5.SQL.Add(s);
ADOQuery5.Open;
print_grid(DBGrid1,2,'Отчет по клиентам');
end;

procedure print_grid(dg: TDBGrid; tab:integer; Caption: string);
var MsApp, MsWord, Table: variant; i, j: integer; ds: TDataSet;
begin
try
MsApp := CreateOleObject('Word.Application');
MsWord := CreateOleObject('Word.Basic');
MsApp.Documents.Add;
MsApp.visible:=false;
MsApp.ActiveDocument.PageSetup.Orientation:=1;
MsApp.Selection.ParagraphFormat.Alignment:=1;
MsApp.Selection.Font.Size:=18;
MsApp.Selection.TypeText(Text:=Caption);
MsApp.Selection.TypeParagraph;
MsApp.Selection.TypeParagraph;
MsApp.Selection.Font.Size:=12;
MsApp.Selection.Font.Bold:=False;
MsApp.Selection.ParagraphFormat.Alignment:=0;
ds:=dg.DataSource.DataSet;
ds.First;
Table:=MsApp.ActiveDocument.Tables.Add(MsApp.Selection.Range, ds.RecordCount+1, ds.FieldCount);
Table.Borders.InsideLineStyle := 1;
Table.Borders.OutsideLineStyle := 1;
Table.Cell(0, 1).Range.InsertAfter('Фамилия');
Table.Cell(0, 2).Range.InsertAfter('Имя');
Table.Cell(0, 3).Range.InsertAfter('Отчество');
Table.Cell(0, 4).Range.InsertAfter('Дата');
Table.Cell(0, 5).Range.InsertAfter('Время');
Table.Cell(0, 6).Range.InsertAfter('Событие');
i:=1;
while not ds.Eof do
begin
for j:=0 to ds.FieldCount - 1 do
Table.Cell(i+1, j+1).Range.InsertAfter(ds.Fields[j].AsString);
inc(i);
ds.Next;
end;
MsApp.visible:=true;
MsWord.AppShow;
except
on EOleSysError do begin
MsApp.Documents.Close;
MsApp.visible:=false;
ShowMessage('Произошла ошибка. По пробуйте еще раз');
end;
end;
end;

print_grid(DBGrid1,'Отчёт об посещениях');

print_grid(DBGrid1,0,'Отчёт об посещениях');