Выкладываю сырцы свою старой утилиты - многопоточный UniversalBIDs чекер.

У нас в проекте всего 2 unit. Один для многопоточной обработки. И главный - для отображения потоков. Кто помнит, можно было определять цену бида для 3х ppc - Umax, Klick, Peack.

Я выложу как обычно код и дам небольшие комментарии.

Файл проекта.

program UniversalBIDs;

uses
Forms,
Main in 'Main.pas' {Form1},
threadHTTP in 'ThreadHTTP.pas';

{$R *.res}

begin
Application.Initialize;
Application.Title := 'UniversalBIDs';
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

продолжение сырцов для многопоточного UniversalBIDs чекер