Зчитування інформації

if Length(Edit1.Text) > 0 then

if not DirectoryExists(Edit1.Text) then

MkDir(Edit1.Text);

{Далі йде створення для кажного URL в списку свого процесу}

for i := 0 to ListBox1.Items.Count-1 do begin

with THTTPThread.Create(True) do begin

{Створюємо призупинену задачу, вказуємо їй її URL и запускаємо її}

URL := ListBox1.Items[i];

Resume;

end;

end;

end;

{Оператори процесу THTTPThread}

procedure THTTPThread.Execute;

begin

{Робимо так, щоб кажний процес виконувався одночасно с іншими (синхронізация)}

Synchronize(DoWork);

end;

procedure THTTPThread.DoWork;

var i: Integer;

begin

{Створюємо компонент TNMHTTP}

FHTTP := TNMHTTP.Create(Form1);

{Результат потрібно записати в файли}

FHTTP.InputFileMode := True;