diff --git a/rtl/inc/wstrings.inc b/rtl/inc/wstrings.inc
index bbf91f83c7..3dbf795139 100644
--- a/rtl/inc/wstrings.inc
+++ b/rtl/inc/wstrings.inc
@@ -450,7 +450,6 @@ end;
 procedure fpc_WideStr_Concat (var DestS:Widestring;const S1,S2 : WideString); compilerproc;
 Var
   Size,Location : SizeInt;
-  pc : pwidechar;
 begin
   { only assign if s1 or s2 is empty }
   if (S1='') then
diff --git a/rtl/wince/system.pp b/rtl/wince/system.pp
index 72e7565345..1a34596032 100644
--- a/rtl/wince/system.pp
+++ b/rtl/wince/system.pp
@@ -41,7 +41,7 @@ const
 
 const
 { Default filehandles }
-  UnusedHandle    : THandle = -1;
+  UnusedHandle    : THandle = THandle(-1);
   StdInputHandle  : THandle = 0;
   StdOutputHandle : THandle = 0;
   StdErrorHandle  : THandle = 0;
@@ -832,8 +832,6 @@ Const
      DLL_THREAD_ATTACH = 2;
      DLL_PROCESS_DETACH = 0;
      DLL_THREAD_DETACH = 3;
-Const
-     DLLExitOK : boolean = true;
 
 function Dll_entry : longbool;[public, alias : '_FPC_DLL_Entry'];
 var