1:
2:
3:
4:
5:
6:
7:

for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'autostart' then
     begin
      ...
     end;
  end;					

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

If CheckBox1.Checked = True then
   begin            // wenn die Checkbox aktiviert wurde, 
    try             // wird der Autostart in die Registry eingetragen
     try
      MyReg.RootKey := HKEY_CURRENT_USER; // oder HKEY_LOCAL_MACHINE für alle Benutzer
      MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
      MyReg.WriteString('Session-Logger',Application.ExeName+ ' autostart');
      MyReg.CloseKey;
      autostart := true; // Die Variable autostart wird auf true gesetzt
     except        // tritt ein Fehler während des Eintrags auf,
      on E : Exception do     // wird eine Exception ausgelöst, mit einer Fehlermeldung
       begin                  // und die Werte werden zurückgestzt
         MessageDlg('Autostart konnte nicht gesetzt werden!', mtError, [mbOK], 0);
         autostart := false;     // autostart wird auf false gestzt
         CheckBox1.Checked := false;  // und die Checkbox deaktiviert
       end;
      end;					

1:
2:
3:
4:
5:
6:
7:
8:

for i := 1 to ParamCount do

   begin
     if LowerCase(ParamStr(i)) = 'autostart' then
      begin
       AddLogEntry('Autostart');
       Timer2Timer(Sender);
      end;					

1:

MyReg.WriteString('Session-Logger','"' + paramstr(0) + ' autostart"');					

1:
2:
3:
4:
5:

     if ParamStr(1) = 'autostart' then
      begin
       AddLogEntry('Autostart');
       Timer2Timer(Sender);
      end;