Word dokumentum szavainak kigyűjtése programból

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    FApplication:=CreateOleObject('Word.Application');
    FDocument:=FApplication.Documents.Open(OpenDialog1.FileName);

    Label1.Caption:=IntToStr(FDocument.Words.Count);

    for i:=1 to FDocument.Words.Count do begin
      ListBox1.Items.Add(IntToStr(i)+'.: '+FDocument.Words.Item(i).Text);
    end;

    FDocument.Close;
    FApplication.Quit;
  end;
end;