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

こんな風に地道にやるしかないのかしら。
p := PChar(s);
p_end = PChar(s) + Length(s);
while p < p_end do begin
　if p^ = #0 then begin
　　p^ := '*';
　end;
　Inc(p);
end;