Porque muda sempre o resultado?

[Mercy_PT]

Estou com dificuldade em perceber porque estas linhas alteram o resultado de cada vez k sao executadas.

for i:=1 to length(Value) do begin
Result := (Result shl 4) + ord(Value[i]);
x := Result and $F0000000;


x,i,Result sao inteiros.

Alguma ideia?


Só muda o valor qdo em nova execucao da aplicacao toda.

[kutuma]

Porque te falta inicializar a variavel "Result" antes do ciclo?