hola pelaorb68, debes crear una cadena de conexion para acceder a cada base de datos y asignarselas al TAdoStoreProcedure que corresponda .
Hazlo de esta forma:
Código Delphi
[-]
conexion1:='Provider=SQLOLEDB.1;Password=' + dbpassword1 + ';Persist Security Info=True;User ID=' + dbusuario2 + ';Initial Catalog='+dbCatalogo1 +';Data Source=' + dbservidor1;
conexion2:='Provider=SQLOLEDB.1;Password=' + dbpassword2 + ';Persist Security Info=True;User ID=' + dbusuario2 + ';Initial Catalog='+ dbCatalogo2 +'o;Data Source=' + dbservidor2;
Despues asignas estas variables a la propiedad connectionsting de cada TAdoStoreProcedure.
Si te queda alguna duda me avisas.
Saludos