Kryptologie Projekt in Delphi... HILFE !!!

[Klaus01]

Delphi-Quellcode:

procedure TForm1.verschluesselnClick(Sender: TObject);
var 
    i,j,s:integer;
begin
 
  s:=strtoint(schluessel.text);
  for j:=1 to s do
    begin
      for i:=0 to memo3.Lines.Count-1 DO
        begin
          memo4.text:=memo4.text+memo3.lines.strings[i][j];
        end;
    end;
end;

so sollte es gehen...
alles in einer zeile

Grüße
Klaus