diff --git a/rtl/wince/system.pp b/rtl/wince/system.pp
index 5ee3b46e49..31c259cd3d 100644
--- a/rtl/wince/system.pp
+++ b/rtl/wince/system.pp
@@ -1772,10 +1772,12 @@ procedure SysCleanup;
 var
   i: integer;
 begin
+  if FCmdLine = nil then
+    exit;
   SysFreeMem(FCmdLine);
-  for i:=0 to argc do
-    sysfreemem(argv[i]);
-  sysfreemem(argv);
+  for i:=0 to Fargc do
+    sysfreemem(Fargv[i]);
+  sysfreemem(Fargv);
 end;
 
 initialization