function ExtractCharSetFromPageContent(fBuffer: string): string;
const
    c_DELIM = ';';
    c_charset = 'charset=';
var
    CutBuffer: TStringList;
    posDelim: Integer;
    strEnum: string;
begin
    result := 'windows-1252';
    CutBuffer := TStringList.create;
    try
      // cut the response into lines inside cutbuffer string list
      while (fBuffer <> '') do
      begin
        posDelim := Pos(C_delim, fBuffer);
        if (posDelim > 0) then
        begin
          CutBuffer.Add(Trim(copy(fBuffer, 1, posDelim - 1)));
          Delete(fBuffer, 1, posDelim);
        end
        else
        begin
          CutBuffer.Add(Trim(fBuffer));
          fbuffer := '';
        end;
      end;
      // look for a line with charset
    [b]  for strEnum in CutBuffer do
        if (Pos(c_charset, strEnum) > 0) then
        begin[/b]
          Result := Copy(strEnum,
            Pos('=', strEnum) + 1,
            Length(strEnum));
        end;
    finally
      FreeAndNil(CutBuffer);
    end;
end;