[vtdeleon]

Saludos

Una Curiosidad, Si PrimerInicio(false) le asignas falso nunca entrara a

Código Delphi [-]
 var
     dir: string;
     reg: TRegistry;
   begin
     if usarRegistro then
     begin
       reg := TRegistry.Create;
       try
         with reg do begin
           RootKey := HKEY_CURRENT_USER;
           Result := not KeyExists(rsClaveInicio);
           if Result then CreateKey(rsClaveInicio);
         end;
       finally
         reg.Free;
       end;
     end

O veo mal