[ALexandr555]

и

......
var
res: ^PChar;
begin
......
GetMem(res,Length(html));
res^ := PChar(html);
result := res^;
......
end;

так он подсовывает лишние символы в конец которых даже нет в нем