tpascalscanner

create

tscanner

create

setfilename