little incorrect try/finally block

[Alexey-T]

  try
    Algo := FClass.Create;
    Algo.Update(@Test[0], 9);
    Res := Algo.Final;

    if Algo.Check = Res then Result := True;
  finally
    Algo.Free;
  end;

move line Algo:= BEFORE try, common practice, more correct.

[Alexey-T]

you did it OK here

  F := TBufferedFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
  try
    Self.Update(F);
  finally  
    F.Free;
  end;

[PascalVault]

Thank you, updated