FAQ Как зашифровать в SHA256? (Ответ тут)

[Lomanu4]

Необходимо подключить модули:
uses IdSSLOpenSSL, IdHashSHA;

function GetSHA256Str(const str : Ansistring) : Ansistring;
begin
  IdSSLOpenSSL.LoadOpenSSLLibrary;
  with TIdHashSHA256.Create do
  try
    Result := LowerCase( HashStringAsHex(str) );
  finally
    Free;
  end;
  IdSSLOpenSSL.UnLoadOpenSSLLibrary;
end;

Используем

procedure TlcMainForm.sButton1Click(Sender: TObject);
begin
ShowMessage(GetSHA256Str('123123213'));
end;