VB代码转Delphi

Question

VB代码:
Sub TestSaveAs()
  
  Dim miDoc As MODI.Document
  
  Set miDoc = New MODI.Document   <---关键是这一句不知怎么翻译
  miDoc.Create "C:\document1.tif"  miDoc.SaveAs "C:\document1.mdi", miFILE_FORMAT_MDI
  
  Set miDoc = NothingEnd Sub已知: 
  TMiDocView = class(TOleControl)
  private
    ....
  public
    ...
    property Document: IUnknown index 1 read GetIUnknownProp write SetIUnknownProp;
    ....
  end;
 
  IDocument = interface(IDispatch)
    ['{D4073843-A58A-469A-A8E2-CFF3FF77EE4E}']
    ....
    procedure SaveAs(const FileName: WideString; FileFormat: MiFILE_FORMAT; CompLevel: MiCOMP_LEVEL); safecall;
  ...
  end;VB中的MODI在Delphi中是一个TMiDocView 对象的实例

Answer 1

'MODI.Document' 是一个COM组件对象吧uses
  ComObj;var
  DocObj: OleVariant;begin
  DocObj:= CreateOleObject('MODI.Document');
  ...
end;

Answer 2

>>  tjianliang(乡关何处) 
不是, MODI是一个对象, Document是这个对象的一个属性, 属性的类型是一个IUnknow的接口