Lo único que necesitas para que tu aplicación funcione correctamente es en el evento 'OnWillConnect' del componente TADOConnection asignar el valor de la cadena de conexión a la variable 'ConnectionString':
Código Delphi
[-]
procedure TDMMain.ADOConnectionWillConnect(Connection: TADOConnection;
var ConnectionString, UserID, Password: WideString;
var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
begin
ConnectionString := GetConnectionString;
EventStatus := esUnwantedEvent;
end;
function TDMMain.GetConnectionString;
begin
Result := MiCadenaDeConexión;
end;