HTML Parser на Delphi 2009

[Rubaka]

Имеется проект, написанный на Delphi 7, мне нужно переписать его под 2009, сейчас единственная проблема в переписке парсера.
В строчках типа:

BlockStart := Pos('<'+Tag, LowerCase(WholeText));

Выдает ошибку:

[DCC Error] htmlparse.pas(132): E2251 Ambiguous overloaded call to 'Pos'
System.pas(16672): Related method: function Pos(const WideString; const WideString): Integer;
System.pas(18130): Related method: function Pos(const string; const string): Integer;

[DCC Warning] htmlparse.pas(132): W1058 Implicit string cast with potential data loss from 'WideString' to 'RawByteString'

И так местах в 6-8 где-то...

Что-нужно поправить? и поподробнее пожалуйста где и как...
Исходник парсера прикладываю во вложении.

[Квэнди]

нужно перевести весь код или на использование string или на использование ansistring

[Rubaka]

Сообщение от Квэнди

нужно перевести весь код или на использование string или на использование ansistring

Поправил, часть функций и процедур... В общем там полный атас... как я понял во всем проекте используются Widestring
Это проблема из перехода на новую версию, часть кода надо править, мне помогла статья

Еще вопрос:

function URLEncode(const AStr: string): string;
const
  NoConversion = ['0'..'9','A'..'Z','a'..'z'];
var
  Sp, Rp: PChar;
begin
  SetLength(Result, Length(AStr) * 3);
  Sp := PChar(AStr);
  Rp := PChar(Result);
  while Sp^ <> #0 do
  begin
    if Sp^ in NoConversion then
      Rp^ := Sp^

[DCC Warning] htmlparse.pas(449): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

это как поправить? Если менять PChar на Char или AnsiChar то выдает E2089 Invalid typecast

upd: добавил в uses Character
а строчку заменил на if Character.IsDigit(Sp^) or Character.IsLetter(Sp^) then

[Квэнди]

Достаточно было просто перевести предупреждение компилятора )
Для понимания работы с строками в D2009
http://edn.embarcadero.com/article/38437
http://edn.embarcadero.com/article/38498
http://edn.embarcadero.com/article/38693