procedure TForm10.dwn1Progress(Sender: TObject; UserData, Position,
  TotalSize: Integer; Url: String; var Continue: Boolean);
begin try
if Position < 0 then exit;
if TotalSize <= 0 then exit;
pgm1.Progress :=trunc((Position/TotalSize)*100);
Label4.Caption :=convert_fsize_to_standard_str(Position)+' / '+convert_fsize_to_standard_str(TotalSize);
form10.Caption :='Complete '+inttostr(pgm1.Progress)+'% of '+form10.Label2.Caption;
Continue:=go_code;
except end;End;