hebräische verschlüsselung

[JP29]

hey leute ich schreibe grad ein programm, was einen text verschlüsseln soll, mittels hebräischer verschlüsselung, aber irgendwie funktioniert es nicht, es kommen aber auch keine fehlermeldungen.
Bitte um hilfe.

hier der quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  laenge, laenge1, laenge2 : Real;
     arrayzahl, x1, y1, x2, y2, s, i : Integer;
     tabelle : array of string;
     text2, text : string ;
begin
 laenge:=length(text);
 laenge1:=sqrt(laenge);
 laenge2:=round(laenge1);
 arrayzahl:=trunc(laenge2);
 x1:=0;
 y1:=0;
 s:=1;
  for i:=1 to arrayzahl do begin
   tabelle[x1,y1]:=text[s];
   x1:=x1+1;
   s:=s+1;
    if x1=arrayzahl then begin
     x1:=0;
     y1:=y1+1;
    end;
  end;
 x2:=0;
 y2:=0;
  for i:=1 to arrayzahl do begin
   text2:=text2+tabelle[x2,y2];
   y2:=y2+1;
    if y2=arrayzahl then begin
     y2:=0;
     x2:=x2+1;
    end;
  end;
 edit2.Text:=text2;
end;