[NumLock]

замени:

Код:

filter_doc(ms,'<a href','<!---<a href');

удали:

Код:

AResponseInfo.ContentStream:=TMemoryStream.Create;

и позицию на всякий пожарный в ноль