idhttp.post progressbar nie działa poprawnie

Witam,
Mam taki problem iż upload plików na serwer poprzez idhttp.post nie działa dobrze tzn. uploaduje się wszystko dobrze ale pasek postępu od razu jest 100% lub po kilku sekundach nie jest do adekwatne do uploadu. gdyż trwa on kilka minut(zalezy od pliku wiadomo)

Czy jest możliwość aby to naprawić??? oczywiście w WorkBegin i Work jest dodane all.

Czekam na jakieś propozycje:)

Wrzuć na formę komponent IdAntiFreeze z Indy Misc i ustaw w jego właściwościach OnlyWhenIdle na FALSE.

program się nie zacina bo się nie zacinał można było robić all

ale dodałem i pasek tak samo nie działa

inne pomysły?

to może pokaż kodu conieco odpowiadającego za to, może tam masz błąd

wysyłanie pliku
jest w thread

src := TIdMultiPartFormDataStream.Create;
   form1.up.Request.ContentType := 'application/x-www-form-urlencoded';
   form1.upp.caption:=form1.lista.Keys[ii];
   src.AddFile('upfile_0',form1.lista.Cells[1,ii],'multipart/form-data');
   try
    id:=form1.up.Post('http://sites.pl/upload.pl?upload_id='+id, src);
   finally
    FreeAndNil(src);
   end;

procedure TForm1.upWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
cgauge2.Progress:=aworkcount;
end;

procedure TForm1.upWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
cgauge2.MaxValue:=AWorkCountMax;
end;

procedure TForm1.upWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
cgauge2.Progress:=0;
end;

Nie wiem czy to ma znaczenie do poprawnego działania OnWork ale w nagłówku masz::

form1.up.Request.ContentType  := 'application/x-www-form-urlencoded';

a przecież wysyłasz multipart/form-data