Подключение к двум базам данных MySQL с помощью скрипта

procedure Параметры_КнопкаСохранить_OnClick (Sender: string; var Cancel: boolean);
        begin
            SQLExecute ('UPDATE vr_systempogoda SET URL='+Параметры.ПолеТекстURL.sqlValue+' WHERE id=1');
            SQLExecute ('UPDATE vr_systempogoda SET ВремяОбновления1='+Параметры.ДатаВремяОбновления1.sqlTime+' WHERE id=1');
        end;

    procedure Параметры_OnShow (Sender: string; Action: string);

        begin
            Параметры.ПолеТекстURL.Text := SQLExecute ('SELECT URL FROM vr_systempogoda WHERE id=1');
            Параметры.ДатаВремяОбновления1.Time := SQLExecute ('SELECT ВремяОбновления1 FROM vr_systempogoda WHERE id=1');
        end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    MySQL: TMyConnection;
begin
    MySQL := TMyConnection.Create(Form1);
    MySQL.Options.UseUnicode := True; 
    MySQL.Server := '10.10.10.10'; // ip address of MySQL server
    MySQL.Port := 3306;
    MySQL.Username := 'username';
    MySQL.Password := 'password';
    MySQL.Database := 'databasename';
    MySQL.LoginPromt := False;

    try
        MySQL.Connect;
    except
        ShowMessage('Can''t connect to database.');
    end;

    if MySQL.Connected then
    begin
       Form1.TableGrid2.dbMySQLConnection := MySQL;
       Form1.TableGrid2.dbSQL:='SELECT id, lastname, firstname FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
       Form1.TableGrid2.dbGeneralTable := 'employees';
       Form1.TableGrid2.dbListFieldsNames :='delete_col,Фамилия,Имя';
       Form1.TableGrid2.dbSQLExecute;
       MySQL.Disconnect;
    end;


end;