怎样声明创建一个类？(50分)

在写automation object程序，
var httpget:THttpGet;
begin
httpget := THttpGet.Create(self);//出错了，只能在form里定义，这里该怎么创建
......
end ;

高手的举手之劳，本人不胜感激！

httpget := THttpGet.Create(Application);

写automation object时是没有application可用的。

老兄：具体点好不好

unit UeReportIEOLEMain;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
ComObj, ActiveX, eReportIEOLE_TLB, StdVcl, SysUtils,
windows;

type
TIEMenu1 = class(TAutoObject, IEOLEMain)

protected
procedure AddURL(const URL, Info: WideString); safecall;
{ Protected declarations }
end;

implementation

uses ComServ;

procedure TIEMenu1.AddURL(const URL, Info: WideString);
var sCmdLine:string ;
begin
sCmdLine := 'eReport.exe ' + URL ;
Winexec(Pchar(sCmdLine),9); //此处如何改为： HttpGet := THpptGet.Create(.....) ;

end;

initialization
TAutoObjectFactory.Create(ComServer, TIEMenu1, Class_IEMenu1,
ciMultiInstance, tmApartment);
end.


原来想创建一个httpget类负责下载文件的，现在只能把它交给eReport.exe 来做了！

没有用过 THttpGet，但是如果不是特殊的类，应该可以
httpget := THttpGet.Create(nil);
只是最后要自己释放。

thx.