THashSHA1 funktioniert nicht mehr in 10.2(.1)?

[TiGü]

Nach dem Studium und Vergleich der Quelltexte zwischen Berlin und Tokyo...probiere es mal ab Tokyo so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Edit1.Text :=  THashSHA1.GetHashStringFromFile(OpenDialog1.FileName);
  end;
end;