вот такая процедура , помогите найти что не верно в ней :
суть прогрги: создание нового файла с расширением rtf.

application := OLE2.CREATE_OBJ ( 'Word.Application' ) ;
Documents := OLE2.GET_OBJ_PROPERTY( application, 'Documents') ;

args := OLE2.Create_Arglist;
OLE2.ADD_ARG (args,n_||'_rtf.doc');
document := OLE2.Invoke_Obj( documents , 'Open' , args ) ;
OLE2.Destroy_Arglist(args);
Arglist := OLE2.Create_Arglist;
OLE2.Add_Arg (Arglist,n_||'.rtf' );
OLE2.ADD_ARG (Arglist,6 );
OLE2.Invoke (Document, 'SaveAs', Arglist ) ;
OLE2.Destroy_Arglist(Arglist);
OLE2.Invoke( application, 'Quit' );