1:
2:
3:
4:
5:

for i:=0 to 100000000 do
  begin
  Application.ProcessMessages;
  ...
  end;                    

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

function encode(text: string): string;
var
  i: byte;
  str: string;
begin
  result:= '';
  str:= text;
  for i:= 1 to length(str) do
    result:= result + chr(ord(str[i])+length(str));
end;

function decode(text: string): string;
var
  i: byte;
  str: string;
begin
  result:= '';
  str:= text;
  for i:= 1 to length(str) do
    result:= result + chr(ord(str[i])-length(str));
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:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:

procedure TForm1.Sperren;
  Begin
  m_Input.Enabled:=False;
  m_Output.Enabled:=False;
  e_passwort.Enabled:=False;
  b_verschluessel.Enabled:=False;
  b_entschluessel.Enabled:=False;
  End;

procedure TForm1.Freigeben;
  Begin
  m_Input.Enabled:=True;
  m_Output.Enabled:=True;
  e_passwort.Enabled:=True;
  b_verschluessel.Enabled:=True;
  b_entschluessel.Enabled:=True;
  End;

procedure TForm1.b_VerschluesselClick(Sender: TObject);
  var
  b : boolean;
  i, itp : integer;
  sti, sp, sto : string;
  begin
  Sperren;

  sti:=Uppercase(m_Input.Lines.Text);
  sp:=Uppercase(e_Passwort.Text);
  sto:='';
  i:=1;
  While i<= Length(sp) Do
    Begin
    If (Ord(sp[i])<65) Or (Ord(sp[i])>91) Or (sp[i]=' ') Then
      Delete(sp,i,1)
    Else
      i:=i+1;
    End;

  i:=1;
  While i<=Length(sti) DO
    Begin
    If (sti[i]='ä') Or (sti[i]='Ä') Then
      Begin
      sti[i]:='A';
      Insert('E',sti,i+1);
      End;
    If (sti[i]='ö') Or (sti[i]='Ö') Then
      Begin
      sti[i]:='O';
      Insert('E',sti,i+1);
      End;
    If (sti[i]='ü') Or (sti[i]='Ü') Then
      Begin
      sti[i]:='U';
      Insert('E',sti,i+1);
      End;
    If (sti[i]='ß') Then
      Begin
      sti[i]:='S';
      Insert('S',sti,i+1);
      End;
    i:=i+1;
    End;

  Repeat
  sp:=sp+sp;
  Until Length(sp)>Length(sti);
  Delete(sp,Length(sti)+1,Length(sp)-Length(sti));

  sto:='';
  For i:=1 To Length(sti) Do
    Begin
    b:=False;
    If (Ord(sti[i])<65) Or (Ord(sti[i])>91) Or (sti[i]=' ') Then
      b:=True;
    If Not B=True Then
      Begin
      itp:=(Ord(sti[i])-65) + (Ord(sp[i])-65);
      If itp > 25 Then
        itp:=itp-26;
      sto:=sto + Chr(itp+65);
      End
    Else
      sto:=sto+sti[i];
    End;
  m_Output.Lines.Text:=sto;
  m_Input.Lines.Text:=sti;
  e_Passwort.Text:=sp;
  Freigeben;
  end;

...
end.