Create selcir.pas