login, он же Вам пишет, типы не совпадают. Например, бинарный сдвиг пытаетесь применить к левому типу, например, hiEvent.
Так, вроде, в паскале есть бинарный оператор AND.