01type
02  IApplication = interface(IDispatch)
03    ['{0E59D500-7A6A-43CA-8007-B7BB7E393CD4}']
04    procedure Execute(const Provider: IUnknown; const Query: OleVariant); safecall;
05    function Get_Visible: WordBool; safecall;
06    procedure Set_Visible(Value: WordBool); safecall;
07    procedure ExecuteTemplate(const Provider: IUnknown; const Query: OleVariant; 
08      const TemplateName: WideString); safecall;
09    property Visible: WordBool read Get_Visible write Set_Visible;
10  end;