2ch用ブラウザ「ホットゾヌ」

えーと、
if (AnsiPos('<>', ALine) <= 0) then begin
　ALine := StringReplace(ALine, ',', '<>', [rfReplaceAll]);
　ALine := StringReplace(ALine, ',', ',', [rfReplaceAll]);
end;
ですが、ホットゾヌからコピペしたのでしょうか?
if (AnsiPos('<>', ALine) <= 0) then begin
　ALine := StringReplace(ALine, ',', '<>', [rfReplaceAll]);
　ALine := StringReplace(ALine, '＠｀', ',', [rfReplaceAll]);
end;
が正解です(現バージョンのホットゾヌでは違いが分かりません。
ブラウザで見てください)。
ここで変換を行うので、TMainForm.BrowseResの
S := StringReplace(s, '＠｀', ',', [rfReplaceAll]);
は不要です。(というか新形式の鯖でも変換を行ってしまうので消した
ほうがいい)