Source position: errorh.inc line 2
procedure error(
status: LongInt;
errnum: LongInt;
format: Pchar;
args: array of Const
);