Problem mit lesen aus einer INI

[ehem. Benutzer]

Hallo,
ich habe folgenden Source :

Delphi-Quellcode:

procedure TForm1.start1Click(Sender: TObject);
var ini: TIniFile;
      a: string;
      Reg: TRegistry;
begin
   start1.checked := not start1.checked;
   if start1.checked = true then
      begin
      ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'config.ini');
      ini.WriteString('Drive O+C','Start mit Windows','true');
      end
  else
     begin
      ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'config.ini');
      ini.WriteString('Drive O+C','Start mit Windows','false');
     end;
   ini.free;
   ini:=TIniFile.Create('config.ini');
      try
          begin
              a := ini.ReadString('Drive O+C','Start mit Windows', '');
              Reg := TRegistry.Create;
               begin
                  if a = 'true' then
                    begin
                     Reg := TRegistry.Create;
                        try
                          Reg.RootKey := HKEY_CURRENT_USER;
                          Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
                          Reg.WriteString('Drive O+C', ParamStr(0));
                          Reg.CloseKey;
                          label3.caption := 'ja'; // das hab ich nur um zu testen ob das wirklich abgearbeitet wird - und ja es wird abgearbeitet
                        finally
                          Reg.Free;
                    end
                  else
                    begin
                     Reg := TRegistry.Create;
                      try
                       Reg.RootKey := HKEY_CURRENT_USER;
                       Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
                       Reg.DeleteValue('Drive O+C');
                       Reg.CloseKey;
                       label3.caption := 'ja' // das hab ich nur um zu testen ob das wirklich abgearbeitet wird - nein, es wird nicht abearbeitet - es wird nicht im label angezeigt...
                      finally
                       Reg.Free;
                    end;
               end;
          end;
      finally
       ini.free;

end;

Und erhalte beim compilieren folgende Fehler:

Zitat:

Erzeugen
[Fehler] main.pas(176): 'END' erwartet, aber 'ELSE' gefunden
[Fehler] main.pas(177): Operator oder Semikolon fehlt
[Fehler] main.pas(190): 'END' erwartet, aber 'FINALLY' gefunden
[Fehler] main.pas(193): EXCEPT oder FINALLY erwartet
[Fehler] main.pas(195): ';' erwartet, aber '.' gefunden
[Fehler] main.pas(197): Deklaration erwartet, aber Dateiende gefunden
[Fataler Fehler] Project2.dpr(6): Verwendete Unit 'main.pas' kann nicht compiliert werden

Nur kann ich die Fehler nicht nachvollziehen.
Ich finde einfach den Fehler nicht

Hoffe ihr seht was ich falsch gemacht habe.

Danke schon mal,


MfG