Fixed compilation error by changing the implementation to that of the development branch.

Author: MHumm

Demos/Hash_FMX/MainForm.pas

@@ -362,9 +362,22 @@ procedure TFormMain.ComboBoxHashFunctionChange(Sender: TObject);
 end;
 
 function TFormMain.IsSaltablePasswordHash(HashClass: TDECHashClass): Boolean;
+var
+  Hash : TDECHash;
 begin
-  Result := (HashClass.IsPasswordHash and
-             (TDECPasswordHashClass(HashClass).MaxSaltLength > 0));
+  Result := false;
+
+  if HashClass.IsPasswordHash then
+  begin
+    Hash := HashClass.Create;
+
+    try
+      if Supports(Hash.ClassType, IDECHashPassword) then
+        Result := (TDECPasswordHash(Hash).MaxSaltLength > 0);
+    finally
+      Hash.Free;
+    end;
+  end;
 end;
 
 procedure TFormMain.EditCostChange(Sender: TObject);