Create selpos.pas