Ошибка при работе с динамическим IdHTTP

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  s: string;
begin
  IdHTTP.Create(Self);
  s := IdHTTP.Get('http://rvs.ucoz.ru/test.htm');
  IdHTTP.Free;
  ShowMessage(s);
end;

При нажатии на кнопку появляется ошибка A component named Button1 already exists.(Компонент с именем Button1 уже существует), после подтверждения Button1 исчезает и дальше ничего нет.

[kakawkin]

а вроде же не IdHTTP.Create(Self); а idHTTP:=idHTTP.Create(nil) - вот так попробуй

[Stilet]

а вроде же

Не "вроде" а "однозначно"

[Shouldercannon]

Сработало, но тут

s := IdHTTP.Get('http://rvs.ucoz.ru/test.htm');

выбрасывает в окно CPU

[Stilet]

А что за ошибка? Выдает что-нить? Выброс на CPU это еще не показатель страшной проблемы.

[Shouldercannon]

Вот что появляется

[Vikenty]

Может так?

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  s: string;
begin
  IdHTTP:=TIdHTTP.create;
  s := IdHTTP.Get('http://rvs.ucoz.ru/test.htm');
  IdHTTP.Free;
  ShowMessage(s);
end;

[Shouldercannon]

Спасибо. Только IdHTTP := TIdHTTP.Create(Self);