请教各位帮忙转换一个函数(50分)

sub convert_shellcode {
my $data = shift;
my $mode = shift() || 'LE';
my $code = '';

# Encode the shellcode via %u sequences for JS's unescape() function
my $idx = 0;

# Pad to an even number of bytes
if (length($data) % 2 != 0) {
$data .= substr($data, -1, 1);
}

while ($idx < length($data) - 1) {
my $c1 = ord(substr($data, $idx, 1));
my $c2 = ord(substr($data, $idx+1, 1));
if ($mode eq 'LE') {
$code .= sprintf('%%u%.2x%.2x', $c2, $c1);
} else {
$code .= sprintf('%%u%.2x%.2x', $c1, $c2);
}
$idx += 2;
}

return $code;
}

PL的代码，转换成delphi的怎么转？