[marcoszorrilla]

Aquí tienes un ejemplo de como escribir y leer en el registro de Windows:

Código Delphi [-]
 En el uses tienes que agregar Registry, Windows
 
 procedure leerRegistro();
 var Registre: TRegistry;
 begin
   Registre := TRegistry.Create;
   Registre.RootKey := HKEY_LOCAL_MACHINE;
   Registre.OpenKey('\Software\iData\GestOptic', True);
   if ((not Registre.ValueExists('Servidor')) or (not
 Registre.ValueExists('BaseDeDades')) or (not
 Registre.ValueExists('Usuari'))) then begin
     try
       Registre.WriteString('Servidor', 'SERVIDOR');
       Registre.WriteString('BaseDeDades', 'GestOptic');
       Registre.WriteString('Usuari', 'SA');
     except
       Application.MessageBox('Por favor, la primera ejecución' + chr(13) +
 chr(10) + 'la debe realizar un usuario con derechos de Administración',
 'Atención', IdOk);
     end;
   end;
 
   Connexio_Servidor := Registre.ReadString('Servidor');
   Connexio_BaseDeDades := Registre.ReadString('BaseDeDades');
   Connexio_Usuari := Registre.ReadString('Usuari');
   Registre.CloseKey;
   Registre.Free;
 end;

Un Saludo.