Суть в следующем: качаю текстовой фаил из Инета и хочу отражать процесс скачки ProgressBar'ом,подскажите как правильно?!! Вот кусок,куда я втыкал ProgressBar:
begin
ProgressBAr1.Position:=0;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
try
hURL := InternetOpenURL(hSession,PChar(URL),nil,0,0,0);
try
AssignFile(f, FN);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
ProgressBAr1.Position:=ProgressBAr1.Position+1;

until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;
ЗАРАНЕЕ СПАСИБО!!!