Tłumacznie PHP -> Delphi - kodowanie

[Legalnl]

Siemano, mam taki mały problem. mam kod:

$key = "abcde";
$string = "lokomotywa";
$result = '';
for($i=0; $i<strlen($string); $i++) {
$char = substr($string, $i, 1);
$keychar = substr($key, ($i % strlen($key))-1, 1);
$char = chr(ord($char)+ord($keychar));
$result.=$char;

no i chciałem sobie to przetłumaczyć do DELPHI:

dlugosc :=  length(s);
 for i := 1 to dlugosc do
  begin
    znak := s[i];
    kznak := key[(i mod length(key))];
    znak :=  chr(ord( znak) + ord(kznak));
    wynik := wynik + znak;
  end;

Kombinowałem już na różne sposoby, dodawałem tu, odejmowałem tam i nic, za każdym razem wychodzą różne wyniki
w DELPHI s[x] x nie może wynosić 0 z tąd 1 i brak minusa w drugiej linijce pętli.

Bardzo prosze o pomoc.
Pozdrawiam!