[[seoane]]

Se me ocurre algo como esto

function Restar(i,j: Integer): Integer;
begin
  if (i<j) then Result:= (i + 1000000) - j
    else Result:= i - j;
end;

Donde i es la lectura actual y j la anterior.