SHA-256

uses System.Hash;
procedure TForm1.Button1Click(Sender: TObject);
var
b,z:string;
   H:THashSHA2;
 
begin z:='04678afdb0fe5548271967f1a67130b7105cd6a828e03909a67962e0ea1f61deb649f6bc3f4cef38c4f35504e51ec112de5c384df7ba0b8d578a4c702b6bf11d5f';
label1.Caption := z;
 h.Create(SHA256);
 b:=h.GetHashString(z,SHA256);
label2.Caption := b;
end;

s1:= THashSHA2.GetHashString(s, TSHA2Version.SHA256);

uses System.Hash;
procedure TForm1.Button1Click(Sender: TObject);
var
b,z:string;
   H:THashSHA2;
 
begin z:='04678afdb0fe5548271967f1a67130b7105cd6a828e03909a67962e0ea1f61deb649f6bc3f4cef38c4f35504e51ec112de5c384df7ba0b8d578a4c702b6bf11d5f';
label1.Caption := z;
b:=h.GetHashString(z,SHA256);
label2.Caption := b;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
hex:byte;
H:THashSHA2;
f:file of byte;
 z,at,b:AnsiString;
begin
   at:='';
      assignfile (F,'F:\Удали меня\HHH.bin');
     reset(F);
     while not eof(F) do
       begin
              Read(F, hex);
                at:=at+chr(hex);
       end;
       closefile(f);
     b:= H.GetHashString(at, SHA256);
    label3.Caption := b;
end;

var
  LSHA2: THashSHA2;
begin
  LSHA2 := THashSHA2.Create(AHashVersion);
  LSHA2.Update(ВОТ СЮДА НУЖНО ПЕРЕДАТЬ МАССИВ БАЙТОВ);
  Result := LSHA2.HashAsString;
end;

for i:=0 to length(s)-1 do
  aaa[i] := StrToInt('$'+copy(s, 1+2*i, 2));
LSHA2.Update(aaa);
Result := LSHA2.HashAsString;