* Patch from Cyrax to initialize search index (bug id 32173)

git-svn-id: trunk@36751 -

packages/fcl-base/src/custapp.pp

@@ -430,6 +430,7 @@ Var
 begin
   SetLength(Result,ParamCount);
   Cnt:=0;
+  I:=-1;
   Repeat
     I:=FindOptionIndex(C,B,I);
     If I<>-1 then