Код:

//это выполняется в отдельном треде
function MyNewThread(pParam : POINTER) :dword; stdcall;
begin
  Main.errcode:=MainForm.GetRadio(mode);
  PulseEvent(Cardinal(pParam^));
end;

//так происходит вызов, движение прогрессбара и завершение

//создание потока
hEvent := CreateEvent(nil, True, False, nil);
HThread1:=CreateThread (nil, 0, @MyNewThread, @hEvent, 0, tid);

//обновляем прогрессбар
while ProgressBar.Position<100 do
begin
   ProgressBar.Position:=DownloadProgress;
   ...
   Application.ProcessMessages;
end;

//ждем завершения потока
WaitForSingleObject(hEvent, INFINITE);
//убиваем поток
CloseHandle(hEvent);
hEvent := 0;