list index out of bounds (4) - что за зверь?

[evg_m]

причина ошибки кроется здесь

	
	

			
				if x = 0 then
    begin
      FParameters.ValueFromIndex[x] := TOAuthUtil.urlEncodeRFC3986(FParameters.ValueFromIndex[x]);
			
		

есть такая малоизвестная особенность, если новое значение пустая строка, то она будет УДАЛЕНА.
доказательство этого вот

procedure TStrings.SetValueFromIndex(Index: Integer; const Value: string);
begin
  if Value <> '' then
  begin
    if Index < 0 then Index := Add('');
    Put(Index, Names[Index] + NameValueSeparator + Value);
  end
  else
    if Index >= 0 then Delete(Index);
end;

предлагаемый метод лечения

if count>0 then begin
 x:=0;
 // то что было в if x=0 then
endl
for x:=1 to count-1 do begin
// точто в else
end;

к тому же это избавляет от многократного бесполезного if x=0 в цикле.
P.S. впрочем рецепт не совсем верный. (может пропустить один параметр, а может и не пропустить).