const
HtmlTrash: array[0..3] of string = ('&','laquo;','raquo;','nbsp;');
....
function UrlsDataCorrector(const aData:string):string;
...
for J := Low(HtmlTrash) to High(HtmlTrash) do
UrlStrFull := StringReplace(UrlStrFull, HtmlTrash[J], '', [rfReplaceAll, rfIgnoreCase]);
...
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.