[angvelem]

Как вариант:

Код:

procedure CheckAutoRun(Value : Boolean);
var
  Reg : TRegistry;
  Key : String;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Key := 'Software\Microsoft\Windows\CurrentVersion\Run';
    if Reg.OpenKey(Key, False) then
    begin
      if Value then
        Reg.WriteString('My program', '"' + ParamStr(0) + '"')
      else
        Reg.DeleteValue('My program');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

procedure TMainForm.FormShow(Sender: TObject);
var
  St : String;
begin
  St := ChangeFileExt(Application.ExeName, '.ini');
  if FileExists(St) then
    // Получаем значения параметров из файла конфигурации
    GLB_AppConfIni := TIniFile.Create(St)
   else
   begin
      MessageBox(Handle,
        PChar('Отсутствует файл конфигурации! Расположение: ' + St),
        PChar('ОШИБКА'), MB_OK or MB_ICONERROR);
      Application.Terminate;
      exit;
   end;
end;