Escribir en el Registro para crear mis ODBC

[JerS]

Buenas amigos estoy tratando de crear mis odbc escribiendo esto en el registro lo he probado tanto en Windows Xp como en W7! ejecutandolo como Administrador y nada!!

Código Delphi [-]
programa:='Ruta de Archivo de Programas'
            r := TRegistry.create;
            r.RootKey:= HKEY_LOCAL_MACHINE;
            r.OpenKey('SOFTWARE\ODBC\ODBC.INI\MyODBC',true);
            r.WriteString('Database','MyBaseDatos);
            r.WriteString('Driver',programas+'\MySQL\Connector ODBC 5.1\myodbc5.dll');
            r.WriteString('PORT',Inttostr(3306));
            r.WriteString('PWD','clave');
            r.WriteString('Server','localhost');
            r.WriteString('UID','root');
            r.CloseKey;
            r.Free;
            r := TRegistry.create;
            r.RootKey:= HKEY_LOCAL_MACHINE;
            r.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',true);
            r.CloseKey;
            r.Free;
            r := TRegistry.create;
            r.RootKey:= HKEY_LOCAL_MACHINE;
            r.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',true);

si conocen una mejor forma se los agradeceria muchas gracias de antemano