Prosty program

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
   ProgressBar1.Position := AWorkCount;
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
   ProgressBar1.Max := AWorkCountMax;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   IdHTTP1.Get('http://www.wp.pl/');
end;

Po nacisnięciu buttona wyskakuje błąd
user image

Błąd wyskakuje tylko wtedy gdy są 3 zdarzenia

  • WorkBegin
  • Work
  • WorkEnd

nie mam zielonego pojęcia co jest nie tak.
2 x Instalowałem na nowo delphi6 i indy10

Pozdrawiam