w: WORD;
w.0 := di1;
w.1 := di2;
w.2 := di3;
...

На той стороне вопросы к скаде (которую вы не назвали). В общем случае w AND (1 SHL i) > 0, чтобы вытащить i-й бит из целого w.