uses ComObj; 
 
const 
  wdStatisticPages = 2; 
 
var 
  Word1: OleVariant; 
 
function seitenzahl(datei: string): integer; 
begin 
  Word1 := CreateOleObject('Word.Application'); 
  try 
    Word1.Documents.Open(datei); 
    result := Word1.ActiveDocument.ComputeStatistics(wdStatisticPages); 
  finally 
    Word1.Quit(0); 
  end; 
end; 
 
procedure TForm1.Button8Click(Sender: TObject); 
var sz: integer; 
begin 
  sz := seitenzahl('c:\test.doc'); 
  showmessage(inttostr(sz)); 
end;