create (tscanner)

create (tpascalscanner)

setfilename (tscanner)