Fix some compiler warnings and hints

1 files changed, 1 insertions, 0 deletions

diff --git a/UCore.pas b/UCore.pas
index dd9cd9e..89af1a2 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -794,6 +794,7 @@ end;
   function CopyFilesWorker_ErrorFunc(Sender: Pointer; ErrorType, ErrorNum: integer; FileName: string): boolean; cdecl;
   var s, s2, s3: string;
   begin
+    Result := False;
     with TWorkerThread(Sender) do begin
       if ParamBool2 then begin
         Result := True;