Word dokumentum oldalbeállítása programból

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    FWord:=CreateOleObject('Word.Application');
    FWord.Documents.Open(OpenDialog1.FileName);
    FWord.ActiveDocument.PageSetup.Orientation := 1;
    FWord.ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'animare.doc');
    FWord.Quit;
  end;
end;