Source position: errh.inc line 6
procedure err(
__status: Integer;
__format: Pchar;
args: array of Const
);