Ошибка в строке HTTP.OnWork := onWork

[fezilk25]

Скачал исходник менеджера загрузок.
Вот этот: Download Plus http://delphiexpert.ru/view_download.php?id=93
При компиляции вылезает ошибка в строках

HTTP.OnWork := OnWork;
  HTTP.OnWorkBegin := OnWorkBegin;
  HTTP.OnWorkEnd := OnWorkEnd;

[DCC Error] uThreads.pas(125): E2009 Incompatible types: 'Parameter lists differ'

Как быть? Версия дельфи - 2010, скорее всего проблема из-за Indy, но что делать с этим?

[kangreon]

Поменяйте передаваемые параметры в процедурах OnWork OnWorkBegin OnWorkEnd На те, которые использует ваша версия Indy.
Сейчас гляну исходник.

Добавлено
В результате процедуры должны выглядеть так

procedure OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
    procedure OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCountMax: Int64);
    procedure OnWorkEnd(Sender: TObject; AWorkMode: TWorkMode);

[fezilk25]

Спасибо! Правда, ошибок теперь ещё больше стало, но, думаю, с помощью формучан откомпилирую всё-таки эту программу.

HTTP.Port := Data.Port;

[DCC Error] uThreads.pas(147): E2362 Cannot access protected symbol TIdTCPClientCustom.Port

PS. где вы исходник смотрите?

[kangreon]

Я думаю данную строку можно закоментировать.

Это скорее всего равносильно http://host:port/uri

http://www.delphigroups.info/2/2/501205.html

Этот исходник?

procedure OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);

Кидаю компанент на форму. В данном случае IdHTTP. Захожу в редактор событий(events), выбираю нужное событие и смотрю что получилось =)