petera, по Вашему методу, сделал так:
K1 : INT := 0;
K2 : INT := 1;
H1 : INT := 2;
H2 : INT := 3;

На попытки прописать вместо номера бита эти константы (типа IF Dout.K1 THEN) выдаёт ошибки "Для битового доступа требуется литерал или символьная целочисленная константа