Creacion de DSN con ODBC para MySql en tiempo de ejecucion

[meosre]

Necesito en tiempo de ejecucion crear un DSN para una bd MySql en tiempo de ejecucion, consegui este codigo pero para access y no se que tengo que cambiar, me gustaria que me ayudaran, gracias.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   R1:TRegistry;
 begin
   R1:=TRegistry.create;
   R1.RootKey := HKEY_LOCAL_MACHINE;
   if R1.OpenKey('SOFTWARE\ODBC\ODBC.INI',FALSE)
    then R1.CreateKey(nombre.Text);
   R1.Destroy;
   R1:=TRegistry.create;
   R1.RootKey := HKEY_LOCAL_MACHINE;
   if R1.OpenKey('SOFTWARE\ODBC\ODBC.INI\'+nombre.Text,FALSE) then
   begin
     R1.WriteString('DBQ',Path.Text);
     R1.WriteString('Driver',PathDll.Text);
     R1.WriteInteger('DriverId', 25);
     R1.WriteString('FIL','MS Access;');
     R1.WriteString('PWD',clave.text);
     R1.WriteInteger('SafeTransactions', 0);
     R1.WriteString('UID',usr.text);
     R1.CreateKey('Engines');
     R1.Destroy;
     R1:=TRegistry.create;
     R1.RootKey := HKEY_LOCAL_MACHINE;
     if R1.OpenKey('SOFTWARE\ODBC\ODBC.INI\'+nombre.Text+'\Engines',FALSE) then
     begin
       R1.CreateKey('Jet');
       R1.Destroy;
       R1:=TRegistry.create;
       R1.RootKey := HKEY_LOCAL_MACHINE;
       if R1.OpenKey('SOFTWARE\ODBC\ODBC.INI\'+nombre.Text+'\Engines\Jet',FALSE) then
       begin
         R1.WriteString('ImplicitCommitSync','');
         R1.WriteInteger('MaxBufferSize', 2048);
         R1.WriteInteger('PageTimeout', 5);
         R1.WriteInteger('Threads', 3);
         R1.WriteString('UserCommitSync','Yes');
         R1.Destroy;
         R1:=TRegistry.create;
         R1.RootKey := HKEY_LOCAL_MACHINE;
         if R1.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',FALSE) then
         begin
           R1.WriteString(nombre.text, driver2.text);
           R1.Destroy;
           ShowMessage(' ALIAS CREADO. ');
         end;
       end;
     end;
   end;
 end;

[meosre]

procedure TForm1.Button1Click(Sender: TObject);
var

Reg:TRegistry;
Path:String;



begin
Path:='C:\Archivos de programa\MySQL\MySQL Server 4.1\data\bdhcaead'; // path de la bas ede datos
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\ODBC\ODBC.INI\DSEcologia',True);
Reg.WriteString('dbq',Path);
Reg.WriteString('DATABASE','bdhcaead'); // asignamos la base de atos
Reg.WriteString('Driver','c:\windows\system32\myodbc3.dll');
Reg.WriteInteger('DriverId',25);
Reg.WriteString('FIL','MSDASQL.1;');
Reg.WriteString('PWD','publico'); // pasword
Reg.WriteInteger('SafeTransactions', 0);
Reg.WriteString('UID','root'); // usuario
Reg.WriteString('SERVER','localhost'); // servidor
Reg.OpenKey('\Software\ODBC\ODBC.INI\DSEcologia\Engines\Jet',True);
Reg.WriteString('ImplicitCommitSync','');
Reg.WriteInteger('MaxBufferSize',2048);
Reg.WriteInteger('PageTimeout',5);
Reg.WriteInteger('Threads',3);
Reg.WriteString('UserCommitSync','Yes');
Reg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',True);
Reg.WriteString('DSEcologia','MySQL ODBC 3.51 Driver'); // driver de mysql
finally
Reg.Free;
end;
// se comprueba la creacion del datasource
Reg:=TRegistry.create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',FALSE) then
begin
Reg.WriteString('DSEcologia', 'MySQL ODBC 3.51 Driver');
Reg.Destroy;
ShowMessage(' ALIAS CREADO. ');
end;

end;

end.