Вы грешите на Memo, тогда попробуйте загрузить документ отдельно, без Вашего парсера.
Если в етой схеме загрузится
Add(MainForm,2953706,140,112)
{
}
Add(Button,9767609,189,112)
{
Left=15
Top=15
link(onClick,16681917:doExecute,[(228,118)(228,119)])
}
Add(Memo,4356324,308,112)
{
Left=140
Top=10
Width=240
Height=250
ScrollBars=2
}
Add(ODialog,16681917,235,113)
{
Filter="Html|*.html|Все файлы|*.*"
FileName="Havij.html"
link(onExecute,4356324:doLoad,[(287,119)(287,146)])
}
Тогда ищите ошибку в алгоритме программы.