Create selreg.pas