Hallo "LostInSpace",

ändere doch probehalber 'mal ...
if (E1 AND ( 1 shl i)) = (Eingang AND 1 shl i) then next i
in
if (E1 AND ( 1 shl i)) = (Eingang AND (1 shl i)) then next i
Ich hab's aber nicht probiert! Bild  

Gruß Dirk