diff --git a/packages/fcl-stl/src/gtree.pp b/packages/fcl-stl/src/gtree.pp
index cc94625430..ff03f9813d 100755
--- a/packages/fcl-stl/src/gtree.pp
+++ b/packages/fcl-stl/src/gtree.pp
@@ -48,7 +48,6 @@ type
     TDepthFirstCallbackType = specialize TDepthFirstCallback<T>;
     TBreadthFirstCallbackType = specialize TBreadthFirstCallback<T>;
   private type
-  type
     TStackType = specialize TStack<TTreeNodeType>;
     TQueueType = specialize TQueue<TTreeNodeType>;
   private
diff --git a/packages/symbolic/src/parsexpr.inc b/packages/symbolic/src/parsexpr.inc
index 1c359b344f..718277f17f 100644
--- a/packages/symbolic/src/parsexpr.inc
+++ b/packages/symbolic/src/parsexpr.inc
@@ -494,5 +494,4 @@ end;
   Revision 1.1  2002/12/15 21:01:24  marco
   Initial revision
 
-}
-
\ No newline at end of file
+}
\ No newline at end of file
diff --git a/packages/symbolic/src/rearrang.inc b/packages/symbolic/src/rearrang.inc
index 5165844717..5f044f5ee8 100644
--- a/packages/symbolic/src/rearrang.inc
+++ b/packages/symbolic/src/rearrang.inc
@@ -87,4 +87,4 @@ end;
 
 
 
-}
\ No newline at end of file
+}
\ No newline at end of file
diff --git a/packages/symbolic/src/symbexpr.inc b/packages/symbolic/src/symbexpr.inc
index 0959670aeb..8cf640ddbd 100644
--- a/packages/symbolic/src/symbexpr.inc
+++ b/packages/symbolic/src/symbexpr.inc
@@ -1119,4 +1119,3 @@ end;
   Initial revision
 
 }
-
diff --git a/packages/symbolic/src/teval.inc b/packages/symbolic/src/teval.inc
index d027c2c260..cbd3299dfa 100644
--- a/packages/symbolic/src/teval.inc
+++ b/packages/symbolic/src/teval.inc
@@ -718,5 +718,4 @@ end;
   Revision 1.1  2002/12/15 21:01:28  marco
   Initial revision
 
-}
-
\ No newline at end of file
+}
\ No newline at end of file
diff --git a/packages/winunits-base/src/comobj.pp b/packages/winunits-base/src/comobj.pp
index 33f51d7925..03710d26c9 100644
--- a/packages/winunits-base/src/comobj.pp
+++ b/packages/winunits-base/src/comobj.pp
@@ -1231,7 +1231,7 @@ HKCR
                         StringMap[NextString].ComStr:=StringToOleStr(PString(Params^)^);
                         StringMap[NextString].PasStr:=PString(Params^);
                         Arguments[i].VType:=varOleStr or varByRef;
-                        Arguments[i].VPointer:=StringMap[NextString].ComStr;
+                        Arguments[i].VPointer:=@StringMap[NextString].ComStr;
                         inc(NextString);
                         inc(PPointer(Params));
                       end;