Se me ocurre utilizar format() para esto.
format() es muy potente para hacer cosas como la que quieres. Tiene muchas opciones.
Código Delphi
[-]
NombreBaseDeDatos := DameBaseEmpresa();
PuertoBaseDeDatos := 3306;
[...]
ConnectionString := format('Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=MySQL;DESCRIPTION=Conector MySQL;SERVER=localhost;UID=root;DATABASE=&s;PORT=%d"', [NombreBaseDeDatos, PuertoBaseDeDatos]);
[...]