* Fixed bug ID #24674

git-svn-id: trunk@26577 -

packages/fcl-base/src/custapp.pp

@@ -333,7 +333,8 @@ begin
     else
       begin // short options have form '-o value'
       If (I<ParamCount) then
-        Result:=Params[I+1];
+        if (Copy(Params[I+1],1,1)<>'-') then
+          Result:=Params[I+1];
       end;
     end;
 end;