1:

DeinTextString := StringReplace(Memo1.Text, #13#10, ' ', [rfReplaceAll]);					

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

function a (text:string;schlüssel:string) :char ;
var code,key,i :integer;
var ent:char;
begin
  code:= ord (text);
  key:= ord (schlüssel);
  ent:= char (code XOR key);
  a:=ent;
end;

procedure TForm2.Button1Click(Sender: TObject);
var key,V,text : string;
var b,i : integer;
begin
text:= edit4.text;
key:= edit3.text;
b:= length (text);
V:='';
for I := 0 to b do   begin
V:= a (text[i],key);
edit5.Text:=V;
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function a(text, key: Char): char;
begin
  Result := Char(Ord(text) xor Ord(key));
end;

procedure TForm2.Button1Click(Sender: TObject);
var 
  V, text: string;
  key: Char;
  i: integer;
begin
  text := Edit4.text;
  key := Edit3.text[1]; //Ich wähle den ersten Buchstaben des Edits, da wir ja sowieso 
                        //nur mit 1 Zeichen als Schlüssel arbeiten können
  V := '';
  for i := 0 to Length(text) do
    V := V + a(text[i], key);

  Edit5.Text := V;
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:

function a(text: Char;key:string): char;
begin
  Result := Char(Ord(text) xor Ord(key));
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  V, text: string;
  key: string;
  i,j: integer;
begin
  memo1.Clear;
  text := memo2.text;
  key := edit3.text;
  V := '';
  for i := 0 to Length(text) do
  begin
  for j := 0 to length(key) do
    begin
    V := V+ a(text[i], key[j]);
    Application.ProcessMessages;
    ProgressBar1.Position := i+j;
        ProgressBar1.Update;
    memo1.Text := V;
        end;
      end;
  end;					

1:

⿜「㋜⿜⿴㋜⾦⾎㊦⾦⾎㊦⾩⾁㊩⾩⾁㊩⿼⿔㋼⿼⿔㋼⾪⾂㊪⾪⾂㊪⾹⾑㊹⾹⾑㊹⾮⾆㊮⾮⾆㊮⾯⾇㊯⾯⾇㊯⾿⾗㊿⾿⾗㊿⾴⾜㊴⾴⾜㊴⾰⾘㊰⾰⾘㊰⼠⼈㈠⼠⼈㈠⾯⾇㊯⾯⾇㊯⾯⾇㊯⾯⾇㊯⾹⾑㊹⾹⾑㊹⾰⾘㊰⾰⾘㊰⾲⾚㊲⾲⾚㊲⾸⾐㊸⾸⾐㊸⾹⾑㊹⾹⾑㊹⾮⾆㊮⾮⾆㊮⿼⿔㋼⿼⿔㋼⾈⾠㊈⾈⾠㊈⾹⾑㊹⾹⾑㊹⾤⾌㊤⾤⾌㊤⾨⾀㊨⾨⾀㊨⿼⿔㋼⿼⿔㋼⿑⿹㋑⿑⿹㋑⿖⿾㋖⿖⿾㋖					

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:

ich hab mich jetzt nochmal bemüht meinen code etwas zu strukturieren
function xorfunktion (text: Char;key:string): char;
begin
  Result := Char(Ord(text) xor Ord(key));
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  V, text: string;
  key: string;
  i,j: integer;
begin
    memo1.Clear;
    text := memo2.text;
    key := edit3.text;
    V := '';
  for i := 0 to Length(text) do
      begin
          for j := 0 to length(key) do
            begin
                V := V+ xorfunktion (text[i], key[j]);
                  Application.ProcessMessages;
                  ProgressBar1.Position := i+j;
                  ProgressBar1.Update;
                memo1.Text := V;
                end;
      end;
  end;