[fpc-pascal] Bugfix in the TCustomApplication class

[Joao Morais]

Hello.

The following patch fixes a bug in the TCustomApplication class.
Against fixes_2_2, sorry.

Joao Morais

====================

@@ -411,7 +411,7 @@
           end
         else // Short Option.
           begin
-          HaveArg:=(I<ParamCount) and (Length(ParamStr(I+1))>0) and
(ParamStr(I+1)[i]<>FOptionChar);
+          HaveArg:=(I<ParamCount) and (Length(ParamStr(I+1))>0) and
(ParamStr(I+1)[1]<>FOptionChar);
           If HaveArg then
             OV:=Paramstr(I+1);
           If Not CaseSensitiveOptions then