（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2

// ↓これの標準ライブラリがあるといいんだけど...
function pchar2str(p: pchar): string;
begin
　if assigned(p) then result := p else result := '';
end;

procedure output(p: pchar);
begin // pはnilかも知れない
　memo1.lines.add(format('%s', [pchar2str(p)]));
end;