Mykola-bas, процедура у тебя немного неправильная.
Ты два раза объявляеш одну переменную - HTMLDocument.
Убери строку Var, сразу идет бегин
Объявляй как TForm1.html_kod(Имя дока или файла что у тебя там)
Должно работать