Kryptologie Projekt in Delphi... HILFE !!!

[Jacqybaby]

Zitat von Klaus01:

Schlüssellänge 5

Delphi-Quellcode:

for i:=1 to length(klartext) DIV schluessellaenge DO
  for j:=i-1 to schluessellaenge
   begin
    VText:=VText+klartext[(j*schluessellaenge)+1]
   end;

hab es folgendermaßen versucht einzu bauen:

Delphi-Quellcode:

procedure TForm1.verschluesselnClick(Sender: TObject);
var vtext:string;
    i,j,s:integer;
begin
klartext:=memo3.Text;
s:=strtoint(schluessel.text);
vtext:='';

for i:=1 to length(klartext) DIV s{chluessellaenge} DO
  for j:=i-1 to length(klartext) do
   begin
    vtext:=vtext+klartext[(j*s{chluessellaenge})+1];
    memo4.lines.add(vtext);
    end;
end;

aber ausgegeben wird mir das wenn ich geheimtext eingebe:

http://www.jacqyzone.de/jshome/bilder/krypto_fehler.jpg

Ich hab schon vieles versucht aber irgendwie klappt das nicht. Außerdem soll der Geheimtext in einer Zeile(mit max. 29 Zeichen) ausgegeben werden.