请高手们看过来啊见人有分啊！！！请高手发表意见啊！！！！

问题如下：
函数saveas定义如下：
procedure SaveAs(const FileName: WideString; const Options: IDrawStructSaveAsOptions); safecall; procedure SaveAs(cons