Вывод DBGrid в Word

procedure TForm10.Button2Click(Sender: TObject);
var Word: variant;
   FilePath: string;
    a:integer;
      s:string;
      i:integer;
function FindAndReplace4(FindText: string):boolean;
 const wdReplaceAll = 2;
 begin
   Word.Selection.Find.MatchSoundsLike := False;
   Word.Selection.Find.MatchAllWordForms := False;
   Word.Selection.Find.MatchWholeWord := False;
   Word.Selection.Find.Format := False;
   Word.Selection.Find.Forward := True;
   Word.Selection.Find.ClearFormatting;
   Word.Selection.Find.Text:=FindText;
   i:=1;
      with ADOQuery4 do
       begin
       First;
       for i:=1 to ADOQuery4.RecordCount do
       begin
 Word.Selection.Find.Replacement.TypeText(ADOQuery4.FieldByName('Наименование').AsString);
       Next;
       end;
       end;
FindAndReplace4:= Word.Selection.Find.Execute(Replace:=wdReplaceAll);
 end;
begin
Word:=CreateOleObject('Word.Application');
Word.Visible:=Visible;
FilePath := 'C:\Users\Роман\Desktop\Диплом\Debug\Win32\1.doc';
Word.Documents.Open(FilePath);
FindAndReplace4('$Naim$');
end;

Word.Selection.Find.Replacement.Text := ADOQuery4.FieldByName('Наименование').AsString;