[Ñuño Martínez]

No te funciona porque estás definiendo un registro, no una variable, y los valores iniciales se asignan en la variable. Si no recuerdo mal, se asigna de la siguiente forma:

Código Delphi [-]
TYPE
 TLight = RECORD
  none  : INTEGER;
  torch : INTEGER;
  full  : INTEGER;
 END;
VAR
  TheVariable: TLight = (none : 0; torch : 7; full : 27; );

Sin embargo, por cómo has planteado el problema, te recomiendo que definas una clase y asignes los valores iniciales en el constructor.