Portierung JavaScript

[travis2010]

Hallo
ich versuche zur Zeit den folgenden JavaScript Code nach Delphi zu portieren. Doch leider sind da noch ein paar Dingem die ich nicht hinbekomme.

Code:

<script language="javascript">
function Decoder(s){
var s1=unescape(s.substr(0,s.length-1)); var t='';
for(i=0;i<s1.length;i++)t+=String.fromCharCode(s1.charCodeAt(i)-s.substr(s.length-1,1));
return unescape(t);
}
</script>

Folgenden Code habe ich bereits:

Delphi-Quellcode:

function Decoder(s:String): String;
var
  s1,t: String;
  i: Integer;
begin
  s1 := Copy(s,0,Length(s)-1);
  for i := 0 to Length(s1) - 1 do
  begin
    t := t+'';
  end;
  Result := t;
end;

Wie kann ich jetzt die Funktion "unescape" nachbilden?
Wie portiere ich folgende Zeile "t+=String.fromCharCode(s1.charCodeAt(i)-s.substr(s.length-1,1));"

Vielen Dank für eure Hilfe