El código que has puesto es incompleto; Prueba con este:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Word: Variant;
Documento: Variant;
begin
Word := CreateOleObject('Word.Application');
Word.Documents.Open('C:\document.doc');
Word.ActiveWindow.WindowState := wdWindowStateMaximize;
Word.Visible:=True;
end;
Ańade al uses uses
ComObj,
Word2000;