procedure TForm10.FlatButton1Click(Sender: TObject);
begin try
if MsgBox(Application.Title,'Cancel downloading of "'+Label2.Caption+'" ?',1,0)=6 then begin
   try DeleteFile(dwn1.FileName); except end;
   job_update:=false;
   go_code:=false;
   TFlatButton(Sender).Enabled:=go_code;
end;
except end;End;