for x := Low(HashDigest) to High(HashDigest) do
         FinalSubject := FinalSubject + Format('%2x', [HashDigest[x]]);

     while pos(' ', FinalSubject) > 0 do      //an x0 will Format out to ' 0'
           FinalSubject := StringReplace(FinalSubject, ' ', '0', [rfReplaceAll]);