$key =  '123456789';
    $mol =  'abcdefghi';
    $crp =  '12abc34def56ghi'; 
    

    $res1 = md5($key);
    $res4 = md5($mol);
    $res5 = md5($crp);  

    $res2 = md5($res1+$mol);
    $res3 = md5($res2+$crp);

 var key: string:= '123456789';
 var mol: string:= 'abcdefghi';
 var crp: string:= '12abc34def56ghi'; 
 
 var s1: string := GetStrHashMD5(key);
 var s2: string := GetStrHashMD5(s1+mol); 
 var s3: string := GetStrHashMD5(s2+crp);  

function GetStrHashMD5(Str: String): String;
var
  HashMD5: THashMD5;
begin
    HashMD5 := THashMD5.Create;
    result := HashMD5.GetHashString(Str);
end;