was soll das übersetzt heißen?

[EMS]

Delphi-Quellcode:

for spalte:=1 to laenge_der_verschluesselung do           //Pixel aus der 1. Spalte bis Stellenlänge
     begin
     farbe:=image1.Canvas.Pixels[spalte,0];                 //Erste Pixel lesen
     wert:=tex[spalte];                                     //Buchstaben aus Editfeld an der Stelle der Schleife lesen
     Ordnungszahl:=ord(wert[1]);                            //Ordnungszahl erstellen aus Buchstabe an der Stelle 1
     showmessage('Ordnungszahl '+ inttostr(Ordnungszahl));
     repeat
     For hindex:=1 to laenge_der_verschluesselung do        //Schleife für die Anzahl der Buchstaben
     rneu:=ord(wert[hindex]);                               //Rot Wert als Ordnungszahl von Wert an der Stelle des Hilfsindex
     gneu:=ord(wert[hindex+1]);                             //Grün Wert als Ordnungszah von Wert Hilfsindex +1 (Eine Stelle weiter)
     bneu:=ord(wert[hindex+2]);
     until (hindex + 2) = laenge_der_verschluesselung;      //Abbruch Bedingung wenn hindex+2 den Wert der Länge der Verschlüsselung erreicht hat


     Neues_Pixel:=(bneu shl 16) + (gneu shl 8)+ rneu;