Indy 10 Ersatz für TIdHash128.AsHex(HashValue(aPassword))

[QuickAndDirty]

Hallo,
leider dachte ich mir irgendwann mal Copy&Paste und läuft...
ohne je zu verstehen was der Code gemacht hat.
Konkret geht es um die indy 9 funktion
TIdHash128.AsHex(HashValue(aPassword)) habe das dann so wie unten zu sehen in mein Programm integriert...

Delphi-Quellcode:

Function EncodePassword(aPassword:string):String;
Begin
  with TIdHashMessageDigest5.Create do
  try
    Result := TIdHash128.AsHex(HashValue(aPassword));
    Result := TIdHash128.AsHex(HashValue(Result));
    Result := TIdHash128.AsHex(HashValue(Result));
    Result := TIdHash128.AsHex(HashValue(Result));
    Result := TIdHash128.AsHex(HashValue(Result));
    Result := TIdHash128.AsHex(HashValue(Result));
  finally
    Free;
  end;
End;

Bin dann von Indy9 auf Indy10 in delphi2007
umgestiegen und vermisse einen Ersatz für die Funktion.

Wo finde ich den Ersatz in Indy 10 ?