pCharをファイルに書き込む際、
var
p: pChar;
f: file;
begin
（略）
BlockWrite(f, p, StrLen(p)+1);
（略）
end;
としているのですが、読みとり方が分かりません。
#0が出るまで1Byteずつ調べていかねばならないのですか？