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:

function VS(Text: string; i: integer): string;
const
  cletter: array[1..26] of Char =
  ('A', 'B', 'C', 'D', 'E', 'F', 'G',
    'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
    'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');
var
  x, z: integer;
begin
  Result := '';
  text := uppercase(Text);

  for x := 1 to length(Text) do
    begin
      if not (Text[x] in ['A'..'Z']) then
        result := result + Text[x]
      else
        for z := 0 to 26 do
          if (Text[x] = cletter[z]) then
            if ((Z + i) > 26) then
              Result := Result + cletter[(z + i) - 26]
            else
              Result := Result + cletter[z + i]
    end;
  result := lowercase(result);
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
  str: String;
begin
  str := Memo1.Text;
  for i := 0 to length(str) - 1 do
  begin
    if str[i] = 'A' then
      str[i] := 'B';
  end;
  Memo2.Text := str;
end;					

1:
2:
3:

  for Index:=iAnfang to iEnde do begin
    {jetzt kommt die verschlüsselung}
  end;					

1:
2:

  // cZeichen ist ein typ Char und sMyString vom Typ String
  cZeichen:=sMyString[index];					

1:

  Memo1.text;					

1:

  sAusgabestring:=sAusgabestring+cZeichen;					

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

procedure TForm1.Button1Click(Sender: TObject); 
var i: integer; 
  str: String; 
begin 
  str := lowercase(Memo1.Text); // hier würd ich sagen wenn du den text klein haben magst
  for i := 0 to length(str) - 1 do 
  begin 
    if str[i] = 'A' then 
      str[i] := 'B'; 
  end; 
  Memo2.Text := str; 
end;