Werte vergleichen

[Sierra]

Hi!
Ich versuche zwei Strings zu vergleichen und zwar Buchstabe um Buchstabe.
Das heißt, wenn ich zum Beispiel "Test" mit "Key" vergleichen will, soll erst "T" mit "K" verglichen werden und so weiter.
Ich habe da auch schonmal etwas programmiert, aber es funktioniert nicht, so wie ich es gerne hätte.

Delphi-Quellcode:

for i:=1 to ord(length(zPlaintext[i])) do
    begin
      j:=i mod ord(length(zSchluessel[i]));
      ...
    end;

Vielen Dank.