587             Delete(s, 1, i);

   587             Delete(s, 1, i);

   588             vobFallSpeed:= StrToInt(Trim(s));

   588             vobFallSpeed:= StrToInt(Trim(s));

   589             end;

   589             end;

   590         end

   590         end

   591     else if key = 'flatten-flakes' then cFlattenFlakes:= true

   591     else if key = 'flatten-flakes' then cFlattenFlakes:= true

   592     else if key = 'sd-water-top' then

   593     else if key = 'sd-water-top' then

   593         begin

   594         begin

   594         i:= Pos(',', s);

   595         i:= Pos(',', s);

   595         SDWaterColorArray[0].r:= StrToInt(Trim(Copy(s, 1, Pred(i))));

   596         SDWaterColorArray[0].r:= StrToInt(Trim(Copy(s, 1, Pred(i))));

   596         Delete(s, 1, i);

   597         Delete(s, 1, i);