Allow compilation of pilot unit

git-svn-id: trunk@37212 -

rtl/palmos/pilot.pp

@@ -83,6 +83,7 @@ interface
 
    type
       Handle = ^Pointer;
+      Ptr = Pointer;
       UInt = word;
       OsType = UInt;