Source position: compressbase.pas line 66
type TplErrorProc = procedure(
Sender: TObject;
var ErrorCode: Integer;
ErrorStr: string
) of object;