586             vobVelocity:= StrToInt(Trim(Copy(s, 1, Pred(i))));

   586             vobVelocity:= StrToInt(Trim(Copy(s, 1, Pred(i))));

   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 = 'sd-water-top' then

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

   592         begin

   593         begin

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

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

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

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

   595         Delete(s, 1, i);

   596         Delete(s, 1, i);