Warum funktioniert mein Übersetzer nicht?

[Phillip0405]

Delphi-Quellcode:

unit UnÜbersetzer;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Actions,
  Vcl.ActnList, Vcl.ExtCtrls, Vcl.Menus;

type
  TForm4 = class(TForm)
    Edit1: TEdit;
    edit2: TEdit;
    Button1: TButton;
    edit3: TEdit;
    procedure Button1Click(Sender: TObject);


   private
    { Private-Deklarationen }
  public
   { Public-Deklarationen }
  end;

var
  Form4: TForm4;


implementation

{$R *.dfm}

 procedure TForm4.Button1Click(Sender: TObject);


var
   englisch: TStringlist;
   W, satz : string;
   i, b,a,buchstabe: integer;

 begin
   w := edit1.Text;
   satz:=edit1.Text;
   englisch := TStringlist.create;
    a:=Pos('Ü',W,a);
    a:=Pos('Ä',W,a);
    a:=Pos('Ö',W,a);
    a:=Pos('ß',W,a);
    a:=Pos('a''e''i''o''u',W,a);
   try
      if Satz[buchstabe]='Ü' then  begin
         a:=Pos('Ü',W,a);
         Delete(w,b,a);
         insert('Ue',w, a);
         edit3.Text:= w;
         englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
         edit2.Text := (englisch.Values[W]);
      end
  finally
        try

            if Satz[buchstabe]='Ä' then begin
            a:=Pos('Ä',W,a);
            Delete(w, b, a);
            insert('Ae',w, a);
            edit3.Text:= w;
            englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
            edit2.Text := (englisch.Values[W]);
           englisch.Free;
         end
      finally
        try

          if Satz[buchstabe]='Ö' then begin
          a:=Pos('Ö',W,a);
          Delete(w,b, a);
          insert('Oe',w, a);
          edit3.Text:= w;
          englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
          edit2.Text := (englisch.Values[W]);
          englisch.Free;
          end
        finally
            try
                if Satz[buchstabe]='ß' then begin
                a:= Pos('ß',W,a);
                Delete(w,b, a);
                insert('ss',w, a);
                edit3.Text:= w;
                englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
                edit2.Text := (englisch.Values[W]);
                englisch.Free;
                end

            finally
                if Satz[buchstabe]='a''e''i''o''u' then begin
                edit3.Text:= w;
                englisch.loadFromFile('D:\Übersetzer\Neu1.txt');
                w:=edit1.Text;
                englisch.free;
                end


            end;
         end;
       end;
      end;
 end;
 end.