office word docx save to pdf

word2pdf.pas

program word2pdf;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,    
System.Variants,
System.Win.ComObj,
Word2000,
Vcl.OleServer;
const
wdExportFormatPDF = 17;
var
Word, Doc: OleVariant;
begin
if ParamCount <> 2 then exit;
try
Word := CreateOLEObject('Word.Application');
Doc := Word.Documents.Open(  paramstr(1)   );
Doc.ExportAsFixedFormat( paramstr(2)  , wdExportFormatPDF);
Word.ActiveDocument.Close(wdDoNotSaveChanges);
finally
{ Quit Word }
Word.Quit;
Word := Unassigned;
end;
end.