Delphi-Quellcode:
// a bekommt den ordinalen Wert des Zeichens
a := Ord(Edit1.Text[c]);
// hier passiert nix
a := a ;
// der ordinalen Wert wird wieder ZURÜCK in ein Zeichen umgewandelt = Anfangswert
Label1.caption := label1.caption + Chr(a);
Und bezüglich Chiffre ist da nichts vorhanden.