[NumLock]

Код:

var
  w: Variant;
  d: Variant;
begin
  w:=CreateOleObject('Word.Application');
  d:=w.Documents.Open(FileName:='c:\Downloads\cd.doc');
  Caption:=IntToStr(d.ComputeStatistics(2));
  d.Close;
end;