diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index b327f88a74..89bbc65dfd 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -1317,7 +1317,7 @@ end;
 -------------------------------------------------------------------------------}
 function BackupFile(const Filename, BackupFilename: string): boolean;
 var
-  FHandle: Integer;
+  FHandle: THandle;
   {$IFdef MSWindows}
   OldAttr: Longint;
   {$ELSE}