// Зачем делать так
H := (1 / 240) * ReadInteger(Data, H_);
S := (1 / 240) * ReadInteger(Data, S_);
L := (1 / 240) * ReadInteger(Data, L_);

// если можно так
H := ReadInteger(Data, H_)/240;
S := ReadInteger(Data, S_)/240;
L := ReadInteger(Data, L_)/240;