procedure Error(Msg: PResStringRec; Data: Integer); overload;

This is Error, a member of class TTntStrings.