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

private

{Для кажного процесу - створюємо свій компонент TNMHTTP}

FHTTP: TNMHTTP;

protected

{Execute визивається при запускові процесу; override – заміняє існуючу процедуру базового класу TThread}

procedure Execute; override;

{DoWork - створена нами функція, виконання якої синхронізується в Execute}

procedure DoWork;

public

{URL - створена нами строка, вказуюча процесу, який URL йому потрібно закачати}

URL: string;

end;

TForm1 = class(TForm)

Label1: TLabel;

ListBox1: TListBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label2: TLabel;

Edit1: TEdit;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }