* Fix to fill in Accept HTTP header (By Mark van Ham, bug #25621)

git-svn-id: trunk@26585 -

packages/fcl-web/src/base/httpdefs.pp

@@ -883,7 +883,7 @@ end;
 Procedure THttpHeader.SetFieldValue(Index : Integer; Value : String);
 
 begin
-  if (Index>1) and (Index<=NoHTTPFields) then
+  if (Index>=1) and (Index<=NoHTTPFields) then
     begin
     FFields[Index]:=Value;
     If (Index=11) then