надо сначала присвоить Temp:=reg;
Temp:=temp /10.0;
а потом поделить иначе выполняется целочисленная операция а остаток отбрасывается