Problem mit lesen aus einer INI

[Binärbaum]

Ich hab den ersten Teil deines Quelltextes mal ein wenig umformatiert (ist übersichtlicher mehr nach meinem Geschmack).
Dabei habe ich fragwürdige Stellen mit Kommentar gekennzeichnet. Wenn du dir diese Stellen nochmal anschaust und korrigeirst, sollte es laufen (oder zumindest ein paar Fehlermeldungen weniger vom Compiler geben ).

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//if
  else
  begin
    ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'config.ini');
    ini.WriteString('Drive O+C','Start mit Windows','false');
  end;//else
  ini.free;
  ini:=TIniFile.Create('config.ini');
  try
    begin///<--wozu steht hier ein BEGIN?? bei try braucht man keins
    a := ini.ReadString('Drive O+C','Start mit Windows', '');
    Reg := TRegistry.Create;
    begin///und das hier? was beginnt den hier? (daran wirds wohl liegen
    if a = 'true' then
    begin
      Reg := TRegistry.Create;
      ....//usw. usw.

MfG
Binärbaum

[edit]
Ich würde dir auch vorschlagen, deinen Quelltext anders bzw. so einzurücken, dass man die Struktur besser erkennen kann. Das ist dann nicht nur für dich leichter, sondern auch für alle anderen, die hier im Forum deinen Quelltext lesen.
[/edit]