Объявили
var:word (byte, dword);

Управляем
var.0:=true;
var.1:=false;

Обнуляем
var:=0;