patch from #18541 add comments field

git-svn-id: trunk@16804 -

packages/fcl-base/src/win/fileinfo.pp

@@ -110,6 +110,7 @@ var struSize : Dword;
 begin
   ts := TStringList.Create;
   try
+    ts.add('Comments');
     ts.add('CompanyName');
     ts.add('FileDescription');
     ts.add('FileVersion');