Вставка кода в Delphi 2009

[Lich]

Есть компонент memo и есть предложение, например - "Мы идем гулять&#"33;&#"33; (Без кавычек), нужно вместо этих кодов вставить читабельный символ (в нашем случае это !). Можно реализовать сл. способом:

mytext:= StringReplace(before, '&#"33;',#33,[rfReplaceAll, rfIgnoreCase]); (Без кавычки)

Но дело в том, что может быть любой код, и в ручную их заносить сложно.

Реализовать можно с помощью цикла:

for i := 1 to 9999 do begin
good:=StringReplace(user,'&#'''+int tostr(i)+''';','#'+inttostr(i),[rfReplaceAll, rfIgnoreCase]);
end;

но вставка натурального символа будет в одинарных кавычках, и там вставится просто #23 или #22. Если убрать кавычки возле символа # Делльфя начнет ругаться. Подскажите как можно реализовать этот код ?!

[Lich]

Вообщем нужно реализовать вот что: Есть документ ХТМЛ, его нужно загрузить например в листбокс, но что бы в нем отображались все символы нормально. Если просто загружать, то загружается текст + ኪ,   и так далее...Кто знает как можно реализовать загрузку или форматирование?!