Для начала:
bit0 := Bit_Mask_DI_A3.00;
bit1 := Bit_Mask_DI_A3.01;
так проще, наверное

на счет остального проект выложи