Cambiar Base de Datos

[Eduard23]

Buenas tardes Amigos Ya Resolvi el CAmbio de la Base de Datos con el Siguiente Codigo
Procedure Cambiar (Sender: TObject);
AdoConnection1.LoginPrompt := False;
AdoQuery1.Connection := AdoConnection1;
DataSource1.DataSet := AdoQuery1;
DBGrid1.DataSource := DataSource1;
DBNavigator1.DataSource := DataSource1;
// Application.OnException := DisplayException;

StrConn:='Provider=MSDASQL.1;'+
'Persist Security Info=False;'+
'Extended Properties="DSN=MySQL;'+
'DESCRIPTION=Mi Aplicacion;UID=root;'+
'PWD=1234;'+
'DATABASE='+xDataBase+';'+'PORT=3306"';

AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString:=strConn;
Try
AdoConnection1.Open;
Except
ShowMessage('Imposible Conectar a la Base de Datos '+xDataBase);
Raise;
End;
End;