hilfe beim übersetzen einer php function in delphi

[agm65]

okay bin soweit

Delphi-Quellcode:

function convertVID(value:String) :string;
begin
result := substr(md5Print(md5string(value), 1, 13) +
(645 * value) +
substr(md5Print(md5string(value / 7), 1, 5)   ;
end;