Работа с несколькими БД одноврменно

var
    MySQL: TMyConnection;


procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if MySQL.Connected then
    begin
        ShowRecordEx(frmAddEdit, 'tablename', 1, MySQL); // 1 - id of record in the table
    end;
end;


procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  MySQL := TMyConnection.Create(Form1);
  MySQL.Options.UseUnicode := True;
  MySQL.Server := '127.0.0.1'; // 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;
end;

procedure Form1_OnClose (Sender: TObject; Action: string);
begin
    MySQL.Disconnect;
    MySQL.Free;
end;