fix(web): DownloadToFile()

- It's now a function instead of a procedure that returns the http code response.
- Automatically deletes the file it creates if the response code is not between 200 and 299

utils/web.simba

@@ -12,7 +12,7 @@ begin
   end;
 end;
 
-procedure DownloadToFile(const url, fileName: String; force: Boolean = False);
+function DownloadToFile(const url, fileName: String; force: Boolean = False): Int32;
 var
   client: Int32;
   path: String;
@@ -33,8 +33,9 @@ begin
 
   client := InitializeHTTPClient(False);
   try
-    GetHTTPPageEx(client, url, fileName);
+    Result := GetHTTPPageEx(client, url, fileName);
   finally
     FreeHTTPClient(client);
+    if not InRange(Result, 200, 299) then DeleteFile(fileName);
   end;
 end;