1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var I,K,V:integer;
begin
 for I:=1 to length(edit1.text) do;
 K:=ord(edit1.text[I]);
 V:=strtoint(edit2.text);
 K:=K+V;
 edit3.text:=char(K);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
 I, K, V: INTEGER;
BEGIN
 FOR I := 1 TO Length(edit1.Text) DO 
  ; //hier endet deine FOR-Schleife
 K := Ord(edit1.Text[I]);
 V := StrToInt(edit2.Text); //wie lang ist denn dein 
                            //string und aus was besteht er?
                            //normal dann zugriff wie 
                            // v := ord(edit2.text[i]); //wert des zeichens zurückliefern
 K := K + V;
 edit3.Text := CHAR(K); //hier am besten edit3.text := chr(k);
END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
 I, K, V: INTEGER;
BEGIN
 V          := StrToIntDef(edit2.Text,0);    //Zeichenverschiebung
 edit3.Text := '';                           //Auagabe löschen
 FOR I := 1 TO Length(edit1.Text) DO
 BEGIN   
  K          := Ord(edit1.Text[I]);          //Zeichen Auslesen  
  K          := K + V;                       //Verschieben
  edit3.Text := edit3.Text + CHR(K and 255); //Verschlüsseltes Zeichen an Aufgabe anhängen
 END;
END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure verschluesseln (AlphaA, AlphaB: String);
var i,j,k,AnzZeichen,: Integer;
    aktuelleZeileA,aktuelleZeileB: String;
    cancelB, cancelZ: Boolean;
begin
With Hauptfenster do
Begin
  For k := 0 to memA.Lines.Count do       // Lines
  Begin
    j := 1;
    aktuelleZeileA := memA.Lines.Strings[k];          // ZeileA setzten
    aktuelleZeileB := '';                            // ZeileB leeren
    if aktuelleZeileA= '' then aktuelleZeileB := '';      // Wenn Zeile Leer.
 //   cancel := false;
    While j <= length(memA.Lines.Strings[k]) Do                // Einzelne Buchstaben
      Begin
        i := 0;
        cancelB := false;
        cancelZ := false;
        While (cancelB= false) and (cancelZ= false) do       // Buchstaben checken wenn kein cancel aktiv ist
        Begin
          if aktuelleZeileA[j]= ' '        // Wenn Leerzeichen, dann sofort cancelZeichen aktivieren
          then Begin
                 cancelZ := True;
                 aktuelleZeileB := aktuelleZeileB + ' ';
               End;
          if i <= length(AlphaA)
          then i := i+ 1
          else Begin                              //Kein Buchtabe
                aktuelleZeileB := aktuelleZeileB + aktuelleZeileA[j];  // Zeichen übernehmen
                cancelZ := true;                 // cancelZeichen aktivieren
               End;
          if aktuelleZeileA[j] = AlphaA[i]       // Ist ein Buchstabe?
          then cancelB := true;                  // Wenn, dann cancelBuchstaben aktivieren
        End;
        if cancelB= True                     // Wenn wegen cancelBuchtabe beendet
        then Begin
               aktuelleZeileB := aktuelleZeileB + AlphaB[i];   // Dann Key übernehmen
             End;
        j := j+ 1;
      End;
  memB.Lines.Add(aktuelleZeileB);           // Zeile hinzufügen
  End;
End;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

function verschluesseln (Folge, AlphaA, AlphaB: String): String;
var i,j: integer;
    cancelB, cancelZ: Boolean;
begin
    j := 1;
    if Folge= '' then result := '';      // Wenn Zeile Leer.
    While j <= length(Folge) Do                // Einzelne Buchstaben
      Begin
        i := 0;
        cancelB := false;
        cancelZ := false;
        While (cancelB= false) and (cancelZ= false) do       // Buchstaben checken wenn kein cancel aktiv ist
        Begin
          if i <= length(AlphaB)
          then i := i+ 1
          else Begin                              //Kein Buchtabe
                result := result + Folge[j];  // Zeichen übernehmen
                cancelZ := true;                 // cancelZeichen aktivieren
               End;
          if Folge[j] = AlphaA[i]       // Ist ein Buchstabe?
          then cancelB := true;                  // Wenn, dann cancelBuchstaben aktivieren
        End;
        if cancelB= True                     // Wenn wegen cancelBuchtabe beendet
        then Begin
               result := result + AlphaB[i];   // Dann Key übernehmen
             End;
        j := j+ 1;
      End;
end;					

1:
2:
3:

AZ := 'ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜabcdefghijklmnopqrstuvwxyzäöü';
Schluessel := 'FZäÄHkYNDEzemJPKjbÖORQLgCGuXxlwhpMsWBftoüUTAÜIiqVdröycanvS';
Edit2.Text := verschluesseln(Edit1.Text, AZ, Schluessel);