[ALexandr555]

делаю так

Код:

PageProfile:=UTF8Decode(IdHTTP1.get('http://www.google.ru/'));

и получаю вот что

Код:

  Procedure ParseDayOfMonth;
  begin
    Dt :=  StrToIntDef( Fetch(Value, ADelim), 1);
    Value := TrimLeft(Value);
  end;

в модуле IdGlobalProtocols