Да, функцию не я писал. Вот попробовал потоки:
Код:
procedure TThreadDL.Execute;
begin
Synchronize(DoWork);
end;
procedure TThreadDL.DoWork;
begin
GetInetFile(picurl, LocalFile);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TThreadDl.Create(false);
end;
но все равно подвисает, что я не так делаю?)