procedure TForm10.dwn1Error(Sender: TObject; UserData: Integer; Url,
  Error: String);
begin try
self.anim1.Active :=false;
job_update:=false;
FlatButton1.Visible :=false;
FlatButton3.Visible :=true;
Label4.Caption:=Error;
Label4.Font.Color :=clRed;
Label4.Font.Style :=[fsBold];
Caption:='Download interrupted !';
SetForegroundWindow(Handle);
_log_entry('Download Manager report errors : '+Error);
except end;End;