动态创建tidhttp组件

IdHTTP 命名空间引用定义idhttp1 : Tidhttp;Param:TStringList;RStream:TStringStream;userid:string;userpwd:string;创建try    idhttp1 := Tidhttp.create(nil);用来接收返回的数据流。    RStream:=TStringStream.Create(''); idhttp1.HandleRedirects:=true;定义POST参数    Param:=TStringList.Create;    userid:=inttostr(randomrange(10000,9999999999));    userpwd:=inttostr(randomrange(100000,99999999));      Param.Add('username='+userid);      Param.Add('password='+userpwd);      CS.Enter;      Tnum:=Tnum+1;访问主线程变量      CS.Leave;      idhttp1.Post(URL,Param,RStream);            RStream.Clear;      Param.Clear;      idhttp1.Disconnect; finally RStream.Free; idhttp1.Free;