Ошибка при работе с потоками

[Shouldercannon]

Обращаясь к потокам

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Advertisement;
  UpdProgram;
end;

данного вида

  // Поток для проверки обновления
  TUpdate = class(TThread)
  private
  protected
    procedure Execute; override;
  public
  end;

  // Поток для рекламы
  TAdvertisement = class(TThread)
  private
  protected
    procedure Execute; override;
  public
  end;

Появляется ошибка, но если их запускать по очереди, то всё нормально. Оба потока используют IdHTTP созданный не динамически. Что посоветуете?
P.S. Процедуры полюбому должны происходить как описано выше в FormCreate

[Shouldercannon]

Решение проблемы: в Execute создавать динамически IdHTTP и работать с ним, а не обращаться к общему конпоненту находящемуся на форме.

[VintProg]

Ошибка при создание формы или как???