多线程问题 高手请进！！！！

[lcddda]

unit Unit2;

interface
uses
Classes,unit1;
type
lthread = class(TThread)
protected
procedure execute; override;
end;

implementation
procedure lthread.execute;
var
name:String;
password:string;

GetURL :String;
PostURL :String;
GetHtml :String;
sParams :String;
aParams :TStrings;
aStream :TStringStream;
begin

IdHTTP1 := TIdHTTP.Create(nil); //编译时这条代码提示出错 怎么修改 谢谢！
aParams := TStringList.Create;
aStream := TStringStream.Create('');
form1.memo1.Lines.Clear ;
name:=form1.edit1.Text ;
password:=form1.edit2.Text ;
GetURL := 'http://localhost/getinfo.asp'; {登录页面网址}
PostURL := 'http://localhost/getinfo.asp?password='+password; {提交网址}
sParams := 'name='+name; {提交参数}
try
aParams.Clear;
aParams.Add(sParams);
GetHtml := form1.IdHTTP1.Get(GetURL); {取登录页面}
form1.IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
form1.IdHTTP1.Post(PostURL, aParams, aStream); {提交}
form1.memo1.lines.Add(aStream.DataString);
form1.memo1.SelectAll ;
finally
form1.IdHTTP1.Free;
aParams.Free;
aStream.Free;
end;

end;

end.

[lcddda]

有人帮解决下吗这问题 谢谢了

[xinghun61]

将uses Classes,unit1;
改为 uses Classes,unit1,IdHTTP;

[oloveuxyz]

即使是0分我也会看，但结帖率太低，没有回答问题的心情！

[oloveuxyz]

IdHTTP1已经存在form1上，不需要创建的
你这线程里直接操作窗体的VCL 是不行的！

[slmax1]

IdHTTP1 有声明吗？

[cuit_xiong]

是不是 在你的form上也就是unit1对应的窗体上放了一个idhttp控件。于是你需要在create了